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4. 2 PRDCO^ 

ttL&O TDM LXW&.<D SFt^n^A b If t? » ^1" & K t± , 4 
ftfflK* (R2C, R3C, R 3 D , R 3 M) fc/Hnfltf, S F fc&jfc-t & 1 i®^ 

^'1/7 Mi»^it^W*-?)o ffl^-CiiPRDt^o PRD 

(i|H 1 9#hb 0 

P RD^lfflOS FT?Jgil$tL'6»#<>*SW"C, \m<OS F*&iz&%:ffimtVfr& 0 

l&l 2 0 0ft, ^$WSFli*!i3 0 0 0it^ofco 

PRDiis Fiim^m^^^bM^Km^i^m^^-mmK^^^^itm.t^ 

2>o BB5&*#©itei&*^4HH±, 0!lx.tf, HI 9 0S F (1, 1) "Cjfe*$tL* 0 R^i 
*&5LZ*t2>%<Dlfjimt%Z> SFIi, SF (2, 1) fctL&o £ T*H "9 liifr £ 

, sf (i, i) «£ «9 fcJ^Htri^2:Lrv^^o^t?*^o 
tc, p RD*gnt4»^s FKH-raiwia^t^-j-o 

(01) iSyili-* S F-CR«5#d S FO±f££>S Ft±, TtiEO S F t EIJW Ltv^ 0 

(02) WM-t& S F-C»«5#^Tfi[OS Ftt, ii#±<4w S F ^|Sjffi^3ti-S^IEi±* 

(03) (BAH-* 3iHOS F^t?, ±{itftTf5:OS FO^^{i|5l^7& s ^-r^>«iiE(i^v> 

o 

(04) tJiJf^SFOFIlcii, £^fEtifcv> 0 



4.3 lilS^^i 
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mi&h§Yf%*mfe^%%Kftmir%'ik&(Dzm<nmm%m^ : m (R3c, R3D 



4.4 /n'U' h it^^i 

mi 7X~7F-t&m, IP*) Hi 3t*^t^^ Mwo^ti, SFt*i±^i/7 htn¥tf*L&o 
<D2, * 3-e^$*L^ 0 Ai/v MH8c©fl*iittlII2 1M'2 h*fi:w 

04, W02, W0 3Htftf U^o 



4.5 ^ b ^agU05feS| 

ft(D4femk LT5eig$*L-rv^o El 2 0#bs o 

(01) L 4 

, nEsuMs, Km%, m#i§j -e&& 0 kit, zftbumiz [mtt, mm, ie^j, ^ 

(02) L 2 

(03) L 3 

^b;vo®gimi, f&SSSi t nf tfft, W0 3 fcHSttSftSo -£>*EI§#i£ (^ 
V?K) fill 1 6 -e^$*L& 0 i0^iili:4x.^til.±i(i ) rjES^BS, KJHIS, 

• klt, ittib^stt raj*, mm, w&u ojRtt*«FO G ±i§<7)m^ti^2, 

(04) I 2 

(>V7K) till 1 47!/Ml 6 K*£CT#:5e£*l& 0 i^&igJSilK-^x. btl&£.&lt, 
["ttSfrJ X-&2> 0 KIT, £*Lfc±ffi{i |"A2U ©I14?:#o 0 Mra*fc»±, 09x-lf, 
BB, 7 7^, mx o^frTabSo msmfoOMiklt, M2 

3, m.mzz<Q'<? hJMDftJ&&mtW2 4#PS„ H*K, L2 0£i§fc&£ilLlg{i f £ 
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(05) 0 4 

ri&si*j -e*a 0 kit, iiife^i&tt rm*j <Dm&zw-?o wsmfctit, 

5, ^VtciO^^ h^O^#ffit±|g2 6#flHo H*£, L3, L 4 <r>±.W£% 

(06) R4 

TWO 4 J -cab* 0 

R4ti, W0 4 4W0 2 Cltt^tffl^^tiO-eab^o M ttiif, R 4 

tut, m^mm^m<o^m tuiats^-cfesni^^t, sf 
Ttt*jfe^M*nita:^wtwrt'gL (it*) $tLS*ic&£ 0 z<Dftmi±, R4 t^uy 

(07) R 2 
TWO 2 J 

R 4 <0*fti: |WlD2l^-eR 2 £JL*Uf, R2li, ^2:^ 

(08) R 2 C 

(*V?K) fill 4Cii:t^Wo C<3»K«3fifc#x.<b*L*±i&tt, TW0 2 
J -C*4 8 £<7)^h;W±, l^'ItS FMOHIf^TfiWSF©W0 4 tiit 
So h)V<DJkm*, R 2 fcraC.T*S 0 

(09) R 3 R 

V 9 K) 1 475M1 6 »c!>C-Cft3estL4. i<0&ffi*iifc#x.&*La£|§»±, 
fW0 3j TabSo iC^^h^tili, R4fcHCt*4o 
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(10) R 3 C 

$^^>o ^o^igMti, ^i/^jtaiaa 020) wat^it^i^w 

(11) R3D 

*t*o ;<u? h^^gQ^c (02 0) Lt 

(12) R3M 

StOf*i, BP^, Tf£e>SFOW03 fcHSLhflwS FOW0 4 

£W) fritS^-So L^L, fcfcSSFO^WfcaMB-t-Sfcv^^fciJ^T, iotfUBtt 

p^m (H2 o) <0^tuTK^-e5ii$w o y?w hji«[Ma:t?ji*?&$*Ls«ttfi 

(13) S 4 

mmi^m mm \t , mti &m mm t * k mm vm * * raw <o tm *. a &«g * # * 
fflK*©f^ffl»i f sf, ttzi±PRD<DmM*m^xfemztL&mz%h%wtiiz%h% 
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4. 6 PRDWft 

P R D S^^filTOi^^fo 

(01) AV? > Sr^C^tC5e^i-^o 
W04 = $4(W04 KJRI"^ ? h ;W) 
W02 = $2(W02 tCg-T^^ h ;U) 
W03=$3(W03 ^JRi-^^ h >u) 

(02) SF?Mi:5Eit^o 

SF = $0 (W0 4 +W0 2 +W0 3) 
HI 1 8 #H, 

(03) PRD^W#i:£ifJo 
HI 9 #B8 0 



4 . 7 £&Jt£roS$& 

(01) W0 4 fcJR-*-£®l±, IW1CW0-4 LXWMIr o 

(02) W0 4 £JR-*-£S&f±, IsiCS FW0 2 0±B*ftjfti: LTflJJS-T £ Wffi*£ o 

(03) W0 4 £JR-*-±I§t±, iTfi© S F<7)W0 4 <7>3E!£ *%5&t LTflJ/B1-&^ s ffi3S 

o 

(04) W0 4 fcJR-*-£S&l±, RTffiroS FOW0 2 t LTflJffli"^ 

(05) WO 4 KMiri.Wite, mfo<Dfa<DSF <DW 0 4 <o±m*i&&£ IsXmMirZ^tftb 

(06) W0 4 KJR l±, liTfi©S FOW0 4 0>£Bfc4&jftCfc LTflJffl-f -S^tti 

(07) _tfB (06) tiiTfiW S F row 0 4 I: L TlJffl Lfcv>^|:ii, R 

iTf^S FOW0 A(D^.m<T>^^ Y ;W±£«IM1S#fcHC®ttfcffiB±.te0>W 0 4 t 

# : 35#RR) fcOffcm&J&ftfciSt-CV**,, 

(08) WO 4 K:JRf±i&Ji, i±t«S FOTO 4 LTfUJfl til 3fc 

(09) ±15 (08) T?B±ffi©SFOW0 4 0±R*S&jStfc LT?IJfflU^:V>»^tcti, ±15 
(07) fclWlC^OMSr^So iTt©W0 4 tJRi-^WH, JIIOWtiftA £ 

ms-zztiffoyk&o z<Dmm±, iDst-iiii (ass* : 35#jsq inw^a^i* 

4. 8 h;i/^tf>jSffl 

*flfft-ett, ^ (04, »S*:14#RS) , #56 (0 5, *S3£* : 17#JRD ro«E^*»Jgil 

fcBSEijf 2004-3099192 



#11 2003-330797 



^-v: 24/ 



xfltiiflL n&auft, raaun, (#tr* 

H*K, ENWfcJR-*-#flE»±, £ o JfcO&fc, ft#Off<E(±#=* (3. 

Sit (PS) 3&»5fe*$tL*wt?ab* 0 

iiT*, (3. 5) t^/;PSWiti:o^-c#ftJo HHO 

PS<7)^I§ (g#) *±, SifeOfffttltB-riJfeWir^^^ft^tLtfftfe&v*. t^L 

aw-ffc-rsi fc**m*'a:^o m=m (3. 4, 3. 7) t$nmm<vmm<vm.& 



r*j inornate*** ^R-fk^tLTv^v^sriftsic-rso ^ b^-c^tt* r 

4 U aa****1ft>Sflllt?5g*StL*^T**Ltf f g^ig^ffiSfcfcg^&ISi-** 

*ffl§fe-CS5rt'§L'fbi:»i, :<0TOTOJo SLT, Zti*$mZ-&2>MK, ^ b 
;Wig^®MKJR1-#£ : £:g^£'£if'£:±B&t LT^i-^^^^lcfiKjt^-^T, 
JtcD^-tr g 1 jRjf&T? g fr<on 4 fin*© £ M ? JKR * o T v> S 0 



4. 9 ^gfcMiofliSfc 

bttSU, SF, PRD, ±S&*S3K («f^Bt?tt»aflt, &VM±£«I 

tltf, &<D^? b>W±£;©£S&fc J: •) ffilil * a 3Mw £ „ iOM^fi, ^R«r— IHb 
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& 0 ^co^nioT, gE^offi^ffl^g#^n^a:-r^>^^^^ 0 



4 . io mftLvmm. 

^1f#-CMtt7!) ? #x.ibtLTv^^^T^^o Jittii, 5«« (Aft, mft, SE^iJ, ^ 



4 . 11 h ;k^)^^IIJ 

(01) ^ ;vc9*iafe 

[0 0 1 1 ] 

«) L 2iEm (Aft • IB^iJ) 

±«©L 2 l±^? Hv«giJ, jEfttt^R, Aftafe^lcia^ijiiJitt^^i-o 

(02) h^ffisu*»i 2<r>niffifo<omz<oww 

I 2fH2#=^ AND AftT^-tX^r-L 3^4=^ 
AND AftM^Ht*- 
L 3^4=^ 

(03) ^ b ^asu*«L 2 on i &m<o%xt><r>mM 

L 2fM<M=#£ 

l 2 on 4 w$>\zt- ?tfte^m<vmfcz&M-f& 0 

(04) ^ h frfflM*L 3 T'^K^If 1 m^O^IB^mHJ 

L 3 0m4^^f , -^7& ? ^v^^$IJ^^itl^i-^)o 

(05) ^ h)Vm$U*L 3-C±m* ? AftT^-t^^-, Aft#LS&#*-, ffiftT^-t* 
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NOP 

(06) ^ h ^ftB0**L 4 <7>m 1 m^jO^IBO^ 

L 3fMH*&=£ 
AND L4#4«&*£ 

L 3 ^fM«K7*-*7& ? &&*, J3.o, L 4 4 H^ICt*- * v^O#l]5e 

(07) h ^jffiSU^L 4 TJRttj&mHi©* 1 »jfe©3felBOliW 

• ^tfE 

L 3*f*4&*ft= 1 
AND L 4f|4ff^*£ 

L3 0*4««Of-^i} , l-e*4*, J.O, L4<7)f4fiti:'f-^#^V>fO 

(08) ^ h ;v=ttgl]ri*L 4 T^tt^ffiO^ 1 SifeO^BB^SiW 

• ilcfB 

L 3 *Mffitt= 2 
AND L 4 »4«J$#=£ 

(09) ^9 h;vagIJ^L 4t?K<03R^7Efc*ofciESO» 1 &a&0£IBtf>8£9! 

L3|4ft=^ 
AND L 4 *2$H*#£ 

L 3 oaMWJfcKT*-******, J.O, L 4 c7)£jl2Hi^--r , -*7& s &V>:^$!]5£ 

(10) h ;vftsa**o 4 i aft©3fefB<B8£K 

0 4i4©ffi*j|77^^ 
AND ffij]7^W^L3|4=^ 
AND MI^-L3I4=^ 
AND jgKiiTBLO@SF©R3D=||f^ 

4 WKt*-^ J.O, gllflfftT BL©|SF©R3 D#IMI»*"C*4f « 
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(11) V ;V«glJ* s R 4 COft 1 fflh<D&&(D%LW 
R 4 ft4Hlt=££ 

(12) h ;HKUj&*r 2C^)tl m&jcoSEfficotfc§g 

R 2 Cft4«#£ 

R 2 C<^»4^^T ? -^7i ? ^V^(7)^J^^^i-^ >0 

(13) h /MIglWR 2 coft 1 a*bo3E|aoSiW 
R 2 ft4$gi*#=^ 

R 2 Oft4«iftfc7*-*#&v^o4aj£**l*"**o 

d4) ^ b /mmu**r 3 R<7)mi®.m(omz<Dm.m 

R3Rft4*Rl^*£ AND 
(g SFL4^@«ft777+0 
OR §SFL3 ^HmSl^ffc 77^0 
OR lSFL2^it«77^0) 
• Sieco:Sl5jc 

R3R«|4|it(:f-^^^|, to, |5-WSFWL4^@«i$ft7 5^ 
ifcti, S F« L 3 ^@ Wft7 7 0 , ttzii, g 

7><0 S F CO L 2 ^EHKIRSMls? 7 ^ o -e^v^ov^-rtL^^fiStji: L^^f^je^jftBfcf 



(15) ^ h/UttflJjFS 4T?±SIj&*I 2ft2««©ftl&ifcO^SB<DSilB 
L 2ft4£##£ 

L 2 C0ft4^l&ll7~-*7& $ fcv^C02|3|^£^l*1-& 0 

(16) ^ * h S 4 ^±I§t5 ? I 2$4 W/ig-lgco L 3 ft 4 O 4 coft 4 

coft 1 ^co^iacora 

NOP 

*: ft 2 ftft Kit tf * *p*i" * o 

(17) v^mm^s 4x^m^xtiT^ ^^^-<dl 3 m 4m^/ / xtjmm^i^~ 

COL 3^4«/ / tB7:T^-b^^-coL 3 ft 4 $l^/ffi£&S;fe#*-co L 3ft4iS*/ 
L 4 ft 4 Slit CO ft 1 £M&4>&|B0K91 

0 4ft4com^j^"7 7^=^ 
• SIEco^P^ 

O 4 ft 4 coffin? 7 ^Kt*- 9 #1bZ>*(DW&i1&m't&o 
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(is) h frmswrfs 4 T-±ig^L 2^4 ma&vm i 

(19) h^asu^i 2 Oil2^^^|S<7)ra 

■ iSlB 

(20) h ^ftSU^L 2 Ogs 2 m^O^|5<^ra 

(2D ^ h 3 <Dm 2 m.m<Dm^(omM 

NOP 

y - ^- ^ V - v a V*5ft5|c-^4o 

(22) f ;vaS07& ? L 4 2 ;£ii&O^IB<&S£IB 
£ffi*?a&St£— L"4 & 2 fttt 

2 w ic^-r & * & seme-*- a 0 

(23) ^ h ;U®SUt5 ? L 4 T?JRl!£dM$flfiOj|5 2 &ij&<Of6iBOS&IJB 

. ^^sg [J^ 



(24) b ;Vttglj7&*L 4 ^JRtt^fiBO* 2 a#?j<^SE©Si9J 

, 2ol<Z>il$&g#£Bfc5£i&fco 

(25) h;^glj55 ? L 4-eK±f§co^2^^^f5om^ 
• i!cfB 
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(26) ^ b^M^L 4-CK±g|-eJRti**4*iKO»2*jfeOi£IB<^SiW 

ilfti7Gtf>»3teA— L 4 ft 2 TO 
• ^IB (7)1:1* 

(27) ^ b ;V5SSll7& s L 4 -eK±Mt?Jltt^flfi<7)ft 2 M%)<0%^V>MW 

m&7t<?>mm. 1 &&-+ L 4 ft 2 « 

(28) ^ bJVttWL 4^K±fg©8ft&7cfc ! 6:ort:IE&£R<0ft 2*«lO*ia©R?l 
KC9L 2ft4fI*lSc— L 4 i2ft 

K<7)L 2<7>ft4 < §Iit07 , -*£, L 4 2««i:#«t*f *tftt*o 

(29) *9 b ;VffiglJ^O 4 Oft 2 iM&O^ElBOKK 

• ^IBO^Gf: 

(30) ^ b ;vagy* s R 4 oft 2 sisiwiiaoRK 

@ S FOWO 2-1 D^R4i2fI 

gS-(DSFW0 2^V7 b I Dt, R 4 Oft 2 I* ^Sli - * So 

(3D b ;vasu7& s R 2 c oft 2 Mito^fBoM 

^jk^^tiMR (SflO , TtSFW04-ID-R2Cf 2ft 

i"o Hffitf^oMfcJ: «JTtfcOSF#ft£S;h.£0-e, JtOifcfr, TfiOSFOWO 
4^1/7 R 2 C©i2lti:fIfS?tMtSo 

(32) b )Vm$WBL 2 Oft 2 «j0^fBom"K 

• HcBB 

§ S FOW 03 — ID-»-R2ft2 
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S^©S FWWO 3^Uy MDt, R 2 2 1H«t»3fei-****l*i-*o 

(33) Y ^Hai3ft*R 3 R <7)H 2 SftO^fBOgftW 
SSFW0 4-I D-*R 3 R^2ft 

I^OS F<OW0 4AUy h I d t, R 3 R©*2fcJftfcf*3!-f****ft-**o 

(34) ^ ^ h ;1/«SIJ^ S 4 t^gg** 12*2 WDM 2 M&O^cfflW^ 
I 2 jd2«J**^ V T 

1 2m2mi&*m&? y ti-&*£#j*i-&o 

(35) h/wBHIrt*S 4-c^s**i 2*Mffi*o£2«ifto^eoB£iB 

I 2^4Hit^^ y T 

I 2mm*k*M&? V Ti"4*S:iKi*-f So 

(36) ^ f A4tS0#S 4 T?3£Mri ? L 2 & 4 2 %|&0%IBOK^ 

(37) mmisij^s 4x~±m&^m/\tiT?^7.*-/xti®m0k\**-/&j}T 
* -t * * - /mznem&ft* - o l 3 in 4 mmvm 2 ^©sisogi^ 

l 3 n4ffim*m&? y T-rs*£i£[*-rs„ 

(38) h )lsm%M*S 4 -C^m^L 4^4 W$L<DW, 2 ^O^IBO^BJ 

L 4m4ffii&Zm J &? y 7t4^*:tl|ct*o 

(39) h ;l/«glJ^S 4 T£»**0 4% 4 »#&03£lBWSiW 
• SitlB 

0 4H4TO^'J T 

0 4i4tit*jgtt^ y r-*-****!*-*** 

(40) h;vag!jj&*I 2 0»3fiftO|Efi©RW 
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(41) h )^m.WL 2^3 m^JW*IB^>ra 

• StfB 

(42) h ;vjffig(J^L 3 co^ 3 3&$jo^iEoifc9! 

• jtlB 

L 4 ©36^*ft«5fe, 1-L3^4 fii* 

l 4 o^Eff^fMflsfefc «, L4©i2 3ajfetciaa"t*^soaistttwW(£i-4*» 

(43) b /MISUrt'L 3 ■eJRtert , ^MiBiOf& 3 &&<A£!B<DI&93 
L4Wiff»JgA, L 4<0^^flJ^B, 2-L3i4 

mm 

• HE|B<D^!iB>fc 

3 0iM*ittfcl £#j£L, Btf)^ft^fl£L, JftJt Lfe»^Kti L 3 (Dm 4 ffittfc: 2 £ 

(44) h ;Vffi8IJrt ? L 3 fK±R«* 3 ^O^lBOliS 

ffltt7COH^*frif05fe, 1-L3i4 TO 

• ^IBO^l* 

(45) ^ h fl'«gU;**L 3 T?K^g|"CJRtt3&*^flfiO 3 

W&TGVmft&VrWfeA , 1-L3I4 ffitt, 
Wt!k%V>$m3kyrm£,B , 2-L3^4 tttt 

" US O 7=^0^ 

3<D&4ffi&Kli:&$kL, B Ljfc»^fctt L 3 4 ^J£K 2 £ 

IKS'*-* o 

(46) h)VmU i L3^\tJT?*X*-&m<Vf£3M%}V>&U<nMWl 

• ifelB 
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(47) h ^iSW s L 3 t A*fel^^r-±i^t 3 ^^SE<0li 
Xt}*m.4kft<onfe, l-L3^4 flit 

(48) ^ h /Ht8U**L 3 T?til*r^'fe^^r-±ISOjS3^#&0^|BOBi^ 

(49) ^ h ;vaS!l75 ? L 3 ^ttifcfcSfcfl 1 *-*^* 3 MO^IBOUiW 

mt}$m4kft<r>nfc, i-L3^4f! 

(50) ^ h -MiSU^L 4^3 ^£JtJ<£>*ffi<7)Hft^ 
L 4 &2W$.= 2& 

L4«I2IJI(:f-^^^WJ^Mt4o 

(51) *9 h A/ttSII^O 4 3 gy$OjcfS£>lftf3 



(52) h;l/®g!j3& s R4 0^3^0^iao^ 
R 4^2^it=^ 

R 4 (7)||2^it^7 : -*-^75 s ^)^^^)fiJ^ : Sr^i-'2>o 



(53) ^ b /MfiBlItf*R 2 C 3 
R 2 C^2^it=^ 
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r 2 c<nf&2&mzr- ?tf$>2>mwifc*& v fc~$~2>° 



(54) Y ;^S0t&*R 2 3 ^^IB^M 



(55) ^ h ;W®SUt5 ? R 3 RO^ 3 ^<^^fB<^ra 
R 3 Rl£2«=£ 

R 3 ROi2fii:f-^^S$^4:tl*tSo 



(56) b ;VffiSU^ s S 4 <£>f£ 3 ffil&O 
NOP 



(57) ^ HvttSU^I 2 0fMfi&j0^fB<£>l* 




(58) ^ V /MfcgU**L 2?)i4 m^^lB^t^ 
" 2 2 *M «J*. L 2 ^EHflftfcft? **n: 

. ^^^^ (7^) 

(59) 1- ;UttSIJ7& s L 3 4 &*&tf>3WB?)3i9i 

(60) h ;Ht!3!l* ? L 4 4 &*&<D3£SB*>fl9i 
L4»2««-L4*4f«, L4 4-@Wt7 7^i: 1 frill* 

(61) ^ h ;VffiSU^L 4 -CKi|g0^4M^C»^|BO^J 
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L4»21S«— L4»4ffli* f L 4 -^EUfcaPJeft? 9 1 £ Jn*. L 4 g5 4 Hit 
— L 2#4&tt 



(62) h ^ttSll^L 4 T?JRtt5W»#0* 4 dfijp&O^IBOSi^ 

L4*2IS«— L4»4««, L 4 ^EUfc»>ff7 9 1 tip*, L4*4«« 
-^SFlL4i4 fttt 

(63) h ;V®SU76 ? 0 4 4 ^jfeO^IBOKW 

tHTJ 3 v > KO«#- S T S 0««f««, 0 4 ^0W{fc7 7 1 *Hm 

ffimzmm** mm-tz t&iz, i^osF©0 44'iii«ft77^i: 1 tttmir&m- 

(64) ^ h /Ht3U**R 4 4 MltJO^IBom^ 
R 4^2Hit-*R 4^4« 

R4<£>^2fMit07*-* t, JM So 

(65) 1* ;VttSlJ^R 2 C 4 ^*&<0ffe|BOttW 
R 2 C»2ftJ*-»R 2 C»4ffi:« 

(66) ^9 YA/WM&R2(D&Afflfo<0&&<0%Lm 

R2<Dm2ffl&<DT-**, *4««fc5£3&-*****i*1-*o 

(67) h ;vttSIJ^R 3 R <Z>& 4 TO<7)^Ifi^^^ 
R 3 R«2 0«-R 3 Rf4i^ 

R3 R<&*2«tfW>7'~-**, IS 4 IS*C#3|-r o 
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(68) 19 h^aai^s 4©i4»$fe« 

NOP 

(69) ^ 2 <0»5&*&O3EK«>B&9i 

X* a - v > K*M*SMMfc K ft tL * x r - * * ft * t? * S *> *U 5e t it I* 1" * 



(70) ^ v^m&i^L 2 om5M^<Dmiom.m 

g^cos fcol 2 iwria«t««E'fk7 9^k l 2m*mwLm^t7 9f*ikm.L, m £ 

•C * & s&» £ ¥0 5e. f & ♦ 4: j£ 1" o 

(71) h^agU**L 3 <0£5&*&<3*iEO&l§l§ 

g^(7)SF(7)L 3mHI^^<b7 9^i: L 3 ^* ®#J&*fl:7 9 ^SrJtttL, P5C 

(72) h;vffiigij^L 4 <Dm5m.m<nm%z<Dmffi 

£t><7) S F <D L 4 Sir 0*11*0; 7 y 7 t L 4 M* 0*|g*ft7 9 JfrRL, |W| D 

(73) ^ h JVmSU s O 4 OH 5 ;£E**J<7)*K?>lftS)3 

ai^j n v > K^-frsMW&fcft <b ^ t- - * x tenure* * 3&»o*i3fe**i*"t- & 



(74) h ;V®SU^R 4 <Dm5M%)<DmZ<7>UW 
R4i2f^#^ 

R 4<D&2mmzT-*tf%^mc>W5E*l£Vfc-t-2>o 

(75) ^ h;v«gu^R 2 c<Dm5®.m<7>mz<7>nw 

R2C#2WN S £ 
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R 2 C<D|2i)t(:7-^^vWJg^ttt^o 

(76) Y )Vm.WR 2 5 &&0&|B£>8£IE 
R 2^2«=^=^ 

R 2 <7)m2fflit^T ? -^75 S3 fcv^^^JS5r#l*i-^) 0 

(77) WHISU7& ? R 3 Rcon5^l-JCO^iBcot£BJ 

R 3 Ri2lt#^ 

• ^IBcOitBfc 

R 3 R<D% 2 m^T- ? tfK^OWlfcZlS-M-f %> o 

(78) ^ h /t/jffigi|rt*S 4 con 5 &jfo©3EBBOffi9i 

• ^IS 
NOP 

y - ^- ^ V - v a >ZlS-Mt&° 

(79) Wv^SU^S 4Ja^©HS6*iftO*B^W9l 

ON-W777 

^J&3: -7 9 ^ H 0 N £ & * fc* * ° 

(80) b ^ttSU^S 4 6 iM&OftiaoftH 
NOP 

/ - ^- ^ v - -> a >^^p*i-^>o 

(81) h ^ttSU^S 4 con 7&*&<0fclBOBi9§ 

• mz 

NOP 

• §&|B CO 

(82) ^ h /MIIIU**S 4 J^*1-co<£T<on 7 fl&JCO^iBcofftl^ 

• ^Ifico^i* 



(01) 5£«&BUi : Kho*? 
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%<D-m $R{± Lye e B E L T±T?&ft £ 0 jt^mUJH 1 <7)^1ffllO 7 n-^-MiP 
[0 0 12] 

ffix.^cft^Pi^ii^^^W^^o i D s OjseH : 16#H, 

[0 0 13] 

-C, *4«*i:tt«8lI : f-*aSx."Cj^i$tL*o A^J 1 4 4 »afr^JRi-7*-^ «B 
[0 0 14] 
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it, % 5 <D Mtft&T Ztl&o 
[0 0 15] 

[0 0 16] 

6 i 6 il^{±±i©»^6<]t;ftLtv^v^i^li^^ WWi TOENAIL 
[0 0 17] 

7 ii7^t±i.m^m5fc^ 5 iwiDENwo^^v>^v^^^^-^, 0 #r=-r*u£, 

(02) £&&giJ2 : ^S^jE^-CJRtt* 1 ^ , IE^!Jco^^h;v 
MO^ ? V fi> t ft & o Q tiJe^i&IU HI 2 #!&o . 

(JKtt) -CJfe^o ^fLflfc, ifSA^RyiJfcmfi 1 , nM ±I£A 

•9iSLiSW^*^^ftjtcff 1 (LOOP) Wltib^. itL^O^t^ YJUOm&t 
m%&jftX-$>2> 0 LOOP&fi^IE^iJOmnff^, MCLOOP^mnO^?)*^ 
=b*L&;d>{±, L y e eBELTX*&z.t>ti&m5kMWKm'$-mWLX'$>2>o LOOPW 
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(03) ^»MJ3 : ±IS^IEMt:-Jl^ai*0^^ h ;P 

Pp&^ 0 MV^M^tt^te^miiJll 3 T^£tL& 0 L30L4 WfStS 

^j^ffiM (i 4 lit) Kfr^d^f±£<9il3#£^;&OkO^&&o H&K, ^ill] 

n t ^ £ *lt v> & £ oftt <o $zm * *m$zx 14 #BSf& t ^ o 

(04) £«&BU : £»#jE»-CJM£j&*ffl:&, 3NBo^ h;v 

(05) £3£&H5 : ±M^ ? JEMX-Jltt^miJ, IS?iJ<0^* 

<DL3, L 4 14^* MW4-£*L-r*ll<|@-T?$>&7&sL 3 , L 4 *fl*j£"*-;&^* h >Utf>«ifctf> 
L3«0^^ h fr(D$a 4 ^{415?!J T?M t L 3C»4«*'?*4o 

(06) 5e«MIlJ6 : ^lg7& s iEmt?«tt^m*, I2?iJ<7>^ 

2tit:fem%Lm-?m,fo2tiZ> L 3, L4©I^^h^i:^^o 5e^»Jt45£^£IJgl6 

(07) : £|&5&*IE&" , CJRtetf*ffi2J, b;v 
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4.2 (5) Kit 3t^$tLtv>^, 0 L A(D^t Y )\><DWi2%m<O i fe&1) t &fr-fi t %>'$~§ 
FWW0 4, WO 2, KLTi^^-rS FWiTfi^S FOWO 4 L& tU*. 

(*B£) ti-^, L 4 {i|^HITfe<^S F<7)W0 4 ^mi-^^ h^"e*>^o Cl 
^iH^T-fi^S FOTO 4 l'^i"L 4 <D^* b ;K7)^|gO^'tt^W^'*)'2>o Z.<nWs&, 
^L4^<^ b;K^^4«<7)fB'li±«OJlttt!5li:^^ ? P^P-t^^S 

WO 4 ^I^fbft&o KUT, L 4 <D^<? h 4 M.$}l"tem^%M 

3E®.m%r^<7)mms&ti, mm, i^ft £-f£sst±, s^ih, 7^ 

(09) ^«miU9 : ^m^iEMr-mmmt! , mm, mwo^t 

liw^ciwiii*, mm, R^RZK-rumi*, siiu 5 , 

do) £&&boi 0 : ^m^iEMx-mm^mti, mm, mm, ^(o^t mv 

sEMW-m-z^m&tfmti, mm, mm, j.o^#£&-t£f§i±, ^mmm, 5 

, 7 7!) s ^$n^^MIiJT"^$tL^L 3, L 4 ©IW^^ h;vt&£ 0 ^UmilJfi^ 

^foujm 1 o#P£o 

(11) ^miHJ 1 1 : ^II^K^* 

ttSJUl 2, L3, L 4<DW.V>H? hfrtft&o L 3 b L 40P^^#PI 

l^<7)P#ii5eaMJ3<7)^i:[WJCT^^>o L 2 (i£OL 4 <D^4«t |W) 

(12) 5fe«$ju 1 2 : ^mtfK.-em&-?) t mm<v<? 

mm*mm <d k a>*±m jtmwLm 11,4 $ uttfemmi -e 

o 

(13) ^amSU l 3 : ±i^Kt!tt#E?iJ^<^ h A' 

nm £ jl5L2, L3, L4 (7)1?)^^ V >U t * & o SfeSfcBSO ti^«»JHI 1 3 #PI 

o 

(u) 5fe«5BSm 4 :±i#Kt'ltt«, i^ijo^ 

JPH£rt*E9!l , mm<F> K 7& s ±f^ i: £ & »#t±5&&5&a! 12, 13 ifi&fiu £ *Lfc*£*l 
miUX &ft Zti&L2, L3, L4 h ;v t ft * o tt^H&IOBI 1 

4 #ps 0 

(15) ^a^fiU 1 5 I 3E.mi)*Ml?m&iPtittV'<* 
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(16) 5g*asm 6 : ±mf> s Mx-mn-t> s &-ft , smew** + & 

L4«l^^f^i:44o 5E«MilJt±5E«*tI'Jll 1 6 #flK, £<7>5t&&|!Uij&ft*Bll 4 

(17) £&&gm 7 : ±m*mx'm^&ti, w&m*** 

(18) j£*asai 8 : ^R^M-CJR^ffl*, ^Miffi, SE^ijO^* Y 

(19) 1 9 : ^LmrfWsmfox-mmtADv^? yn> 

* h ;v t 4 * o 7E«Il]f±5e«»J® 19, 20, 21 #Io I 2 coffiito HHKiHI 2 3 
, I 2 OffrfciiLttfilB 2 4 H^-To 

(20) £*&fii2 0 : ±m&T?-tx*-X'm'&&mt}<D'<? 

10 1 9 0I 2 **£<Z>t9:*|*ftfT i--S^T'^<5)o £lfcftBfltt£itglBIH 19, 20, 2 1 # 
Mo 

(21) £«mf!ij2 1 : ^R^ftka^^r-TJRtt^m*©^^ 

[0 0 18] 

L4<75^^ h;v^q¥^L4v><7){i, jg^Sill 9©I 2 75^<7>^#J^'ft ; fft-^.^tr 
£HMItt£lfcftBIBIl 9, 2 0, 2 l#BHo 

(22) ^*miy2 2 : ^»*«»a#-cjRtt*«m*w^^ ^ 

* h /u fc 4 * o £&&5!ll*£lt£Illig| 2 2, 2 3, 2 4 #1, 0 4 ©i^||#li0 2 5 
, 0 4 OffcjfcJiM&ttEl 2 6 \zmir 0 

(23) ^«miU2 3 : 3Lmtfmzx*-x~m&i)mti<D'<? mv 

III 2 2 (DO 4 **^Ot£<Rl*'ftff-r*»"T?**o j£«5£I!MiJ&ll&B0BI 2 2, 2 3, 2 4 # 

lo 

(24) %mi&m2 4 : ±mtf$km$kft*~-xm&&itiZ)<D'<? 

jRit** m * -e to* jes^f* * - **±si 1 4 ^> \± , femmm 2 4 xm.m $ ti & m 
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IIJ 2 2 <7)0 4 ^WffiW*^-*- **"C*& 0 J6«»Slltt3fe«l»B0ia 2 2 , 2 3, 2 4 # 

Mo 

(25) 2 5 : ±m^^ V-y b W 0 4 tR 4 1- fl/ 

^ !✓ y h aSUW 0 4 4 & feltftBll 2 5 -C&ft $tt^R4<7)M<7)L 

4^^t4*o &£%Bllf±&*$LHIIIB 2 5 #RB <0 

(26) ^MWA 2 6 : l/yfW02tR2CO^b^ 

2> < mMMM2 6-etft$it4R2C©fiOL4^? MUkft&o J&lfe&BllttjfeSfc&Illia 
2 6 #1. 

(27) £ttftgU 2 7 : ±I§^Vn° V> y hWO 2"CR2©^^ 

^° V 7 b MJW 0 2 £ ft S 2 7 £ R 2 tf>M?> L 

4 * h ;v £: ft & □ £&&BQ ttjfctl&iflia 2 7 #Io 

(28) ^MHJ 2 8 : £R#^V? bWO 3 T*R 3 R^^ b ^ 

^ V y b mSUW 0 3 ft £ »^*±. £tt$IBQ 2 8 £ R 3 R £>M<?> 

L4?>^b;w£:ft&o fi£lt%ll B 2 8 #io 

(29) 2 9 : 12*2 ffl&n S4^^h^ 

Tj&fMiR* (i 2) <nm 2 w&w±m 3&n*ii2 9-em&£tL& 

(30) jgnftfio 3 o : &ma> s 1 2m 4 S4©^^ b * 

X^Jf^fflS* (12) 4 8Wfc&*±8&fcfc 3 0 X~M.$) S *i & 

S40ffl0^h)l'i44i dtUi, X^^fflHSf (12) 0*4««0^«^* 

I 'J 7) fcfr?**)^ b/u-c**,, 

(31) Je**S0 3 1 :±^XA7^-fe^ + -<0L3i4«^S4^^h^ 

5 4 tf)lJ«9^ b ^kft&o £tU±, A^JT^-b^-OL 3 H4^*So^ltr8#^^^ 

a y 7) *ft i%,<D^? b ;v-c&£ 0 

(32) JgilKSQ 3 2 : ^m&XJ3fl!!m4kWr*-<D L 3 ft 4 iWi^O S 4 b /U 

S 'j 7) fcfrofcO'** b;vc&& 0 

(33) 3 3 : 3Z.mtfO 4 H 4 W&<0 S 4 b /u 
ffl:fcffcJB3HS (04) 0*4««*«^ffi4:ft*»^l4, 5&*aSII 3 3 

S4Ol(0^^b;vfc^S o £*Ui, HJ^flUBSHR (04) ^)f4WM®» 

(34) ^H%S0 3 4 :±M^7^*X^-OL3$4^tOS4©^^f;i' 
ffi2J7*-fe**-OL 3ft4«ttW*±S&fcfc*»'&'f±, j&ttftgll 3 4T:$l$j£fr£ 
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(35) ^a«J 3 5 : ^7& ? tH*^SI^#^--OL 3 » 4 H«W S4W^b^ 

a (^'JT) Srff ? & ^ ^ b ^■C-^So 

(36) ^MffiM 3 6 : £R * f L 4^4 S4^^>;V 

L4f 4W±^t^Si^l±, 5E«milJ3 6t?m#?J^tLa S 4 b * 

o ^MfflM 3 7 <b 4 7 £&&SU 3 6 t |WJ CC* & 0 

(37) £&%SQ 4 8 : ±ISrt s L 2 # 4 ffii$<7) S4^M* 

L 2 *M fcfc ^«MJ4 4 0ffltf>'«* b* 

fcfcfco -tUi, L 2 ft 4 ffi**>*frllS«>#a*yi 'J 7) Srfi^&O^* b^-Cfc* 
o ^*^SIJ 4 9 *» e> 5 3 ICO V>T * 5eII»] 4 8 t PI & e 

(38) 5 4 : £!§t5 ? L 3 ft 4 W&<V S4C^b* 



4. 12 ^n^5A<0&a;O^ + -A 

ffi^tf ? 7 n ^ 9 A i: f i , SFifcliPRDt fcfc-f 47^^ V X A <D^ & 

2> 0 ^(DT;vrf'j XAi:i , ^ b;v, mv? MBit ^v? ba&iwa&a*^***'-* 

HJfc©fi**fll Ub©flKLye eBELTiitjWtt (S 

fbft) fcttJStttftU*. *i^f^n/5A, IP*>, SF, afctffcPRDfcje*-*-* 

S10 (10-1-10-3) tC^i-o ITOC, Lye eBELT©^* 
Jill, ^ WKDMOtfllSrSU 2 (12-1, 12-2) , b;K£>Sl^M^<9 

tL&^V b;v£iEl 3 (13-1, 13-2), na*©3H©«**l 4 (14- 

1-14-8) , Kit, /"CW hmilM^a^^^l 5 (15-1-15-15) 



%H.% I D S I" j&fc-*- & 5&l*o#M& 

^fiE«DlfcW!fcfc (ftr5j£2. 1) (ft~#2. 2) *IV>tt"fMbL, 

& I D S (IDeal 

Space) »>L, RS!kt:^tSli4 I DSOgit^. IDS^msSEUi. HI 
-e?F$*L&o JSLTK:iDS«>36iltL-Crita+*je«*»K"r*o Ztib<D%M\±, 
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<DMn*<\ PS, TDM^fcjtlfcta&fcffifeiLa 



01 : ^#B#WiijS (v B ) 

yf^s^m (m-m&m.) wuzizfflzftz&m&mit, M&<Dmmt%& 0 ids tit 
, z.<DM&<om-?$>&o iDscii, m zi&mMm.tfmM t Lxm~t9-it%^ 0 idsk 

02 : B#ME (Vi) o^sts* 

H#F^MVi^M?StJ(± I Vi — Vb I "C&-5> 0 %^W^7&^{i"^^ t-e-tL^x<7)B# 
FH ilJg rt*ft5fe $ *i £ o 

03 : VB<7)Mf£;fr 

fe-?&&&t&& 0 li#io 

04 : ViO^WIBbfe 

Vi0^w«ifet±i/ I vi-vb l -c, #«^iai o jfefl^fMi, i/IVi-v 

AO^II^t^B^F^II^J: ^ &*§tftU;f, ^OBfAiiB fcft'S.U B tt 
Atr^Mi-^o ^Wl-tLf^, BttB#Mfi9fca*0#&, AliH#K&&CB J: I? &*5fco:fiR£ 

05 : %t&vfrfflmm.v>£mwii& 

06 : If&m 

07 : assist 

a, mmmm, mtmti, &mwnk<D®.tLxfcmztL2>o H2#!s. 

08 : ^"5T^]^^<D*^M^ 

1 d s&mmzix, j&fr-t & tJfi$&&ffl\tmwm^<7>mmmm*mmt 

09 : Ml^wflfii 
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10 : a s-g- 

H^fc^ftl"* A^**»A*-&, BWR^tSSfci - * AH-frtBffcAH-frfcPf-S 



li : £;fr£ffl 



12 : MtA*<£«0*H?!l 



A 



a. 



13 : ffiltt A Officii 



14 : £ 



15 * SRfSttHfji 



S (uOi^tttlA*^) WftJUfcafHSM^ (iOfc^ttMlIRiP) a*, 



O 



16 : HaiR ; f-oa^lBl»[0±IS: 



17 : J» 
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is : ^t^i^M 

k { f tL m m m t- ^ ^ w si & * * ?s 21 % m <r> \x * ^ w t n & . 



19 ; hpitf 



20 iE?® 



21 : ^^.jEH 
Mo 



22 : 

P#, *ftt*»e>3t;o^«lJI«l©JBtKi:|BlCS»A^ s S:l!Sf< («" -D (&T# 
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23 : #-H?3Hb t ii ^Sfi^b 

A [2] ) lC$:J6£tl&o 

%L%> o 

24 I 

*l-c, ci w^eEi±3ft»aa, »LtiMit 
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25 : SlfcXtt 

c*tr, mt&*&m , smmM. (nrfr, &ftg&&«ft 

26 : i*waiSEw*i«?a* 

lit, i DSosm«i&tt£» (±lB05#ffi) at^fll«fci-**tt4;^o £<^* 

KJ:U, I DS<D£HtS£:<0*VfcabS£H (SESft^M, «S££R5, **£IW. 

27 * ^iW-^SiM 

28 I ^^i^ii. 

#1, 

29 " TtfiEI 

9 #ps 0 

30 * ^ftfe 

o 

HI 1 0 0Mo 
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31 : ^HWfc; 

zsmMm*. z<oMWizm&2&z&m&m*j&3L2*£2>& j imM (a [2 

32 : 

fcj&£$*Sg&&S^Jfe£S*aiHttRK (A [2] CiUv^ 

33 : ^fr'fk, W-M<DWik. 

34 : IB* £ EKt 

35 I l&HiC t HI fit 

fltffr, PRD£2frv>-c, jy&KIEfiStLS S FWictt, 3fcHBB*$*LS S Fg, 

^iti-4fl|ji"c*s^tSjgi-tndr, p rd i>^Ki<zmMl-%^te'&fk-C'£>2>o ^^>** 

ib R 3 D, R3MOjjiKftfflttji***?>**^<oa^*iSi*U, R2C, R3CO«Bf^ 



^Lt, V7>'>i7J.>y-7 , r/^* , jiaL , CV>4i;vyvt3£liit4SKtt, >^tL 
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1 1] #fiR] * s H3£$*L*JjlLiltfCM&o 

kzfrif-cmm-r&^&tii&Zo ^amx-n^zws-x^^m^, ^itiiii^^h©^ 

£<BM, JWJO V 7 > x 7x > 5? i 7 'J > /Ott*t II , ^UfcPHOTT'n-f- 
ttflHfrft, T'-^WSHt, * 7* -If* Mb) Hm^fir^tzo SLT, *ffi!ii:tt3>kf 

*WJtO**tt, »H* (3. 5) T^TV^ft, ^JHfc«X.l4, #aW55:*/hO^ 
5^*t*Lfc*T?*a e £*U4, 7 7 f 7 x 7 16<I^f /J^^ 5 ^ ©i^tSitli 
5fc&#£^i- 0 JtOtloT, ^~ M (1. 1) tl^TV>477l>7x7til?ltJ 

i©JHI«:jS*(±, Z.tit"C<OV7 )-7x7i7y-7'J ^^OlB:#fc— «L*lIU^*t* J: 

76 s , ra— a*&#**3 0 av»*u* 1 ^-cmhh** t#x.^*^m^^o l^u ra— a^- 

#£3 0A*J&^&**47f nTtrc£;g> 0 -ffe^, :*WS*iiC"CtfMf $*LS*H4, 77 b© 

S4OT*^, £«>4F£:&v*-c, ^(DUM^m^ v b-t&tkhtf, Wl&&*9Zz-&S&1&<n 



stein, ttnn y-O Leibniz, x.?-*© Spinoza, teWTPfc&O Godel, RLti^ 
»©Cantor<a»*A*^isfc*L*U*, 77 Hi^^adttJMfcOfc^KStL-CV* 
£ © T (4 & v » 3&» t & t> ft & o 
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& v^w ii , i rS^WS & & & S t> ft & o 

=r y X a Kf&f^cof&H^ t»T PI «J © <9 # T^a^T tit fc i" * ¥ K*« ttv^ 0 
5£*aH0fc L"C?|At$tL-Cv>^ 0 XU, ^MW7 ^^^fSWCgit^l^"! 
LTV^f^t), ;tLit©77f7x7x>y-7 , J"/^77n-f Wa, 



6. 1 W?5W)i5*^It V 7 h n^i±<o^i 



(01) gl&^n^7^ >r*T$miiZlrZ> 0 

(02) 7"0^7A©^IE»f^^^X.^o 

(03) 

(04) V7 MBI&Kffl^f&WMSrHaL^^S^ffi^So 
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(05) v 7 > n%i8 Hofiisft cjt^ha m%) * $ * & o 

(06) V7h^y^7Ait (<"-K, OS, 5K^V7h) jft»fe»St$*4o 

(07) EUC (x>Ka-f-n>ea-r-/>7) £#|3Pi 



6 . 3 Ippi 



[0 0 191 

±IBT?»aH L/c J: i ttV7b«5rx7 

[0 0 2 0] 

1] IDS©i»^>4o 

2] f^sir>^ (Vi ) o^ram&fc^iSE^i^ab* 

1 0] MfflLOMit*MW-t&tzit>Z>ffi.&M-?$>&o 
1 1] ENW^HAHT?**. 

1 21 ENW4SitS^«il^*Ml^tSfcfeOjffiiglt*So 
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1 7 
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2 0 
2 1 
2 2 
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13 8 

13 9 
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1 4 
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14 
14 
14 
14 
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15 4 
15 5 

15 6 

5 7 
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16 1 
16 2 
16 3 
16 4 
16 5 
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Mmm i 

&I!l!2-e&<So 
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[H9 6 
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[H 1 0 



5c 
5e 



I 
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5&&&SU|gl 1 1 
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miUH 1 3T-*So 
mSIIH 1 4f^„ 
5e^MJH 1 5T-^^o 
miUH 1 6 -efc&o 
1 7tib^ 

1 8-e&£ 0 

19,2 0M2 1 T^^o 

2 2 , 2 3^5.^2 4tr&& 0 
2 5^^)^)o 
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0 0 2 On — K-e&&o 
0 0 2 On — K-e&So 
0 0 3 On - F-C&&o 
0 0 3 On - K-e&&o 
0 0 4 On- K-e^)^o 
0 0 4 on - K-Cib&o 
0 0 4 On - K-e&& 0 
0 0 5 On - K-Cib^o 
0 0 5 On- K-C^&o 
0 0 5 on - F-Czb&o 
0 0 6 On - Ktr&&o 
0 0 6 On - K-C&So 
0 0 6 on - Kt-^^o 
0 0 7 On - KTr£>&o 
0 0 7 On - 
0 0 8 on - K-tr^^o 
0 0 8 On - 
0 0 9 on - F-eab&o 
0 0 9 On - FT?2b&o 
0 0 9 on - F-eab&o 

0 1 0 on - f-c&& 0 

0 1 0 On - FT:&&o 
0 1 oon - Ft?ab^>o 
0 1 ion - F-eab&o 
0 1 ion - V?$)2>o 
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112 6] &*<9 Y)v<nM : 
HI l 2 7] b;v<oii : 
@i 2 8] b ;v<0M : 

012 9] b : 

013 0] b ;kom : 
0 13 1] b ;koM : 
013 2] £^ : 
013 3] £^ b ;vcoi) : 

0 13 4] b ;V<OM : 

!0 1 3 5] -£s<? b from : 

;ii 3 6] b^coM : 

1137] b fr<DW. : 

[0138] b ;vcoM : 
[013 9] b;KOM : 

[0 14 0] b from : 
[0141] b ;kdi : 

[0142] b : 

[0143] b from : 

[0 14 4] b from : 

[0 14 5] b : 
[0146] b : 

[014 7] £^ b fr<DM : 

[0 14 8] £^ b fr<om : 
[0 14 9] b;vcoa : 

[0 1 5 0] b from. : 

[0151] b fr(Dm 

[01 5 2] £^ b fr(DM 
[0 1 5 3] b from 

[0 1 5 4] b;VcoSI 
[0155] b from 

[01 5 6] b ;K0M 

[015 7] b 
[01 5 8] &*<jr b ;K7)M 
[015 9] b from 

[0 16 0] b from 

[0161] £r*<^ b ;K0M" 
[016 2] b;VcoM 
[01 6 3] b ;V«0M 

[01 6 4] -gi^? YfrOM 
[016 5] ik^* b;vcoM 
[01 6 6] b ^coM 

[016 7] Yfrom 
[016 8] b from 

[016 9] -£s<? hfrom 
[017 0] b from 

[01 7 1 ] ^-^^ b ;vcoM 

[01 7 2] b ;vcoS 

[0173] ^k^t b ;koii 

[01 7 4] -£s<>7 b ;K7)S 



0 1 2 603- K"e&&o 
0 1 2 CO 3- Kt^So 
0 1 3 69=7- K*|>^ 0 
0 1 3 60n- K-e&&o 
0 1 4 <0 3- K-efc&o 
0 1 4 CO 3- Kt*So 
0 1 5 60 3- KT~&&o 
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0 1 5 OS- Kt'^So 
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0 1 7 03- Kt*fe-&o 
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0 1 7 60 3- K-cfc;& 0 
0 1 8 (03- K-e^)^o 
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0 1 8 03- KT-&& 0 
0 1 9 <0 3- K-Cifc&o 
0 1 9 <0 3- K-Cfca 0 
0 2 0 0 3- K^&<2>o 
0 2 0<O3- Kt?*So 
0 2 1 (7)3- K-CjfeSo 
0 2 1 03- Kt^^o 

0 2 2 CO 3- K-c&;g.o 

0 2 2 <03- KtTcb^o 
0 2 3 <0 3- Ktr^-So 
0 2 3 co 3- K-eafc&o 
0 2 3 co 3 — F-tr^^o 

0 2 4 co 3 — K-eab&o 

0 2 4 co 3- K-Cafc&o 
0 2 4 co 3- Ktr*^.o 
0 2 5 co 3 — K-eab-So 

0 2 5 co 3- KTr&&o 
0 2 5 60 3- KT?ab& 0 
0 2 6 co 3- KT?&&o 

0 2 6 co 3- K-eab&o 

0 2 6 co 3 — K-C&&o 

: o 2 7 co 3- b"e^^>o 

: 0 2 7 co 3- K-e&&o 
: 0 2 8 CO 3- Kt?** 0 
: 0 2 8 CO 3- K-C&£o 
: 0 2 9 co 3 — F-t?^^o 

1 0 2 9 co 3- KTr&&o 

: o 3 o co3- K-e&& 0 

: 0 3 0 co 3 — FT'&3o 
: 0 3 1 co 3- Ft^|> 0 
: 0 3 1 co 3- KT*4o 
: 0 3 1 co 3 — Kt^^o 

: 0 3 2 CO 3- b*-?&£o 
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17 5] V )^<DM 

17 6] Ik^? MWOM 
17 7] h )^<DM 

17 8] £^ b )V<DM 

17 9] h )VCO 

18 0] £^ F JWO 
18 1] &s<? Y )^<D 
18 2] h )ls<D 
18 3] £^ F ;K7>S 
18 4] F rt'OM 
18 5] F ;VOM 
18 6] F ;voM 
18 7] F;VOg> 
18 8] F;voii 

18 9] 

19 0] £r^* F;voM 
19 1] F Ji'OgJ 
19 2] F )V<DM 
19 3] Y)V<DM 
19 4] F ;VOM 
19 5] F ;V(7)I 
19 6] F ^OM 
19 7] £^ F;voM 
19 8] £^ F;VOM 

1 9 9]'^:^ F;voM 
02 0 0] £r-^ F;VOM 

0 2 0 1] &*<9 F 

12 0 2] f;v©I 

12 0 3] F ;VOM 

112 0 4] F^OM 
02 0 5] 

HI 2 0 6] &s<? h)V<DM 
0 2 0 7] £r^? FJVOM 
HI 2 0 8] F;voM 
HI 2 0 9] 4f<? F;vO 
0 2 10] F;i"0 
@2 1 1] F;VO 

2 12] F;voM 

2 13] F JVO 

2 14] F;VO 
2 15] it-* 9 
02 16] £r^* F;VOH 
112 1 7] <£s<? F;VOli 
112 1 8] F;VO 
02 1 9] F;VO 
02 2 0] F;VO 
02 2 1] F;voil 
02 2 2] F;voM 

02 2 3] 

2 2 4] Y)V<7) 



0 3 2©n- 
0 3 2 On — 
033^3- 
0 3 3 On — 
0 3 3 On — 
0 3 4©3- 
0 3 4 On — 
0 3 4 On- 
0 3 5 On- 
0 3 5?)3- 
0 3 6 On- 
0 3 6 On- 
0 3 7 On- 
0 3 7 On — 
0 3 8 On — 
0 3 8 on — 
0 3 9 On- 
0 3 9 On- 
0 4 0 On- 
0 4 0 On- 
0 4 1 on- 
0 4 1 on- 
0 4 2 on- 
0 4 2 on- 
0 4 3 On- 
0 4 3 On- 
0 4 4 On- 
0 4 4 On- 
0 4 5 on- 
0 4 5 O n- 
0 4 6 On- 
0 4 6 On- 
0 4 7 On- 
0 4 7 On- 
0 4 7 On- 
0 4 8 On- 
0 4 8 On- 
0 4 8 O n- 
0 4 9 On- 
0 4 9 O n 
0 5 0 O n 
0 5 0 On 
0 5 1 On 
0 5 1 On 
0 5 1 on 
0 5 2 On 
0 5 2 On 
0 5 2 On 
0 5 3 On 
0 5 3 On 



F"c$> & 0 

F*T?&& 0 

- K-c&& 0 

- K-C&&o 

- Ft^So 

- K-e&& 0 
-F*-e&& 0 

- FT-^So 
- 

- Ft-^^o 

- Ki?&&o 

- Ft^^„ 

- F*t?&&o 
- 

- Ktr^^o 

- K-e&& 0 

- Ft^^o 

- Ktfe^, 

- Kfeb-So 

- KTr&£ 0 

- K-c&& 0 

- Ktr$>^o 

- K-Cab& 0 

- K-C^^o 
- 

- FT-fc&o 

- F*-e&& 0 

- K-e&£ 0 
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[0 2 2 5 ] b ;VOS : 0 5 4 <75 =i — FTab&o 

[@2 2 6] £^ FJV(?)1 : 0 5 4(^)3- F-Cab&o 
[02 2 7] b )V<DW I 0 5 5 On - KT?2b*o 

[19 2 2 8] h/K^I : 0 5 5(7)3- Kt'^So 

[02 2 9] b;i/OM I 0 5 6 On- K"C**o 

[0 2 3 0] b )V(DW. 0 5 6 On - 

[0 2 3 1 ] b ;K7)M : 0 5 7 On - F-e&&o 

[02 3 2] b;woM I 0 5 7 On - b'-C&&o 

[02 3 3] b ;^OM : 0 5 7 On - F-trab&o 

[02 3 4] £s<? h;voM : 0 5 8 on - Ftr*&o 
[02 3 5] ik^? b^oM 0 5 8 on - VX-$>h 0 
[02 3 6] b ;WOM : 0 5 8 On - F-C&&o 

[02 3 7] h^OM : 0 5 9 On - Ftrcb&o 

[02 3 8] b ;WOM : 0 5 9 On - Ffab&o 

[02 3 9] &*<t? b;i/Ogl : 0 5 9 On - Ftrab&o 

[02 4 0] b;i^OM I 0 6 0On- F-^ab&o 

[02 4 1] b ;voM : 0 6 0 On - Ftrab&o 

[02 4 2] £^ b ;^OM I 0 6 0 On - F-e&&o 

[02 4 3] ^-"^ b;VOM : 0 6 1 On - F"Cab&o 

[02 4 4] bJVOM 0 6 1 On - Kt%&o 

[0 2 4 5] b JVOM 0 6 2 On - FT?&&o 

[02 4 6] b;voM : 0 6 2 On - F-eab&o 

[02 4 7] b^OM I 0 6 2 On - b"C2fe&o 

[02 4 8] b;VOM I 0 6 3 On - Flr^-So 

[02 4 9] ie:^ b ;VOS : 0 6 4 on - FT?&&o 

[0 2 5 0] £^ I 0 6 5 On- b*-C&&o 

[02 5 1] £^ b;VOS I 0 6 6 On - VX*&&c 

[02 5 2] ^r^* b ;voS I 0 6 7 On - F"C«b&o 

[0 2 5 3] ^ b ;VOM : 0 6 8 O n - F"Ccb h 0 
• [02 5 4] ^r^^ b;voS I 0 6 9 On- Ktrafe^o 

[0 2 5 5] b;VOM I 0 7 0 On - F-Ccb&o 

[02 5 6] ^r-^^ b JVOM : 0 7 1 On - FT?ab<?>o 

[02 5 7] b )V<DM I 0 7 2 On - F-Ccb&o 

[0 2 5 8] -£s<? b;voM : 0 7 3 on - H-e&&o 

[02 5 9] b ;voM I 0 7 4 On - Ff^So 

[0 2 6 0] &s<? b ;VOM I 0 7 5 On - F-Cab&o 
[0 2 6 1 ] b;i/C0l : 0 7 6 On- Ff^^o 

[02 6 2] b ;VOM : 0 7 7 on - Ftrab-So 

[02 6 3] b ;VOM : 0 7 8 On - F"Ccb^o 

[0 2 6 4] £^ b;voM I 0 7 9 On - F-Ccb&o 
[0 2 6 5] h^col : 0 8 0On - Ft?cb&o 

[02 6 6] ^W^SO^#om®5*^i-«E^0T-cb^)o 

[02 6 7] ^^5or;vn*i; XA^r^6<jtC^-r^0-e*)«>o 

[02 6 8] S!#cOV7 b->i7x>y-7'J >^OT T^n -f-£^5£&K*Fl~$k& 

0-Ccb^o _ 
[0 2 6 9] W^ECia V 7 Hi7i^v-7'J V^*fltS:fl9^7Pi-|Kilr0'C* 

[0 0 2 1] 

PRD 

mgE# 2004-3099192 



2003-330797 



58/E 



ffifE# 2004-3099192 



WM 2003-330797 



. o *» v • 



1/ 




1] 



jo? 




ajfiE# 2004-3099192 




{fcfE# 2004-3099192 



#H 2003-330797 



^-v: 3/ 




[03] 




aiSJE# 2004-3099192 



[0 4] 



m m 2003 



-330797 



^-v: 4/ 




tBIE# 2 0 0 4 



-3099192 



#M 2003-330797 



^ — v . 



5/ 




5] 





O 




O 



^■•C..: 1 «(^> :-i(:v..(-.i. - 





wag 
4m 







<8s? <hsc 

jffij" siS|* ?Ej~ 




miE^ 2004-3099192 



#11 2003-330797 



s< — i? 



6/ 



[16] 



1 — I- 




\ (EES) 



H h 



43 



4 — I 



T 







/ *'f" \S A 




ffi|E#2 004-3099192 




£BfE# 2004-30991 



O&M. 2003-330797 



^-v I 8/ 




fcBfiE# 2004-3099192 



#fl 2003-330797 



*0 ■? • 



9/ 




19] 




"ST 



UK 
3^ 



t 



0X> 



A 

...... . 3 

"Oil 








M 

ml— 



ii 

5N 



r\ 

<W 



ffilE# 2004-3099192 



#IH 2003-330797 



^-vl 10/ 



[110] 




fcBfE# 2004-3099192 



#11 2003-330797 ^- *J : 11/ 

• [Elll] 




tBIE# 2004-3099192 



mm 2003-330797 



^-v: 12/ 




112] 



G 



G 

m 



G 



trd ^ 



ru 

^G^G 

•nn -nil 




G 



^ IP 

^G^G 



CO C<1 CO "^f 



G 



4± 

^G 

•an S 



•WE 



ru 



G 
• • • • 

LO CO 



eg 



oo 



CO 




ffi!E# 2004-3099192 



H&m 2003-330797 



^?-v: 13/ 




ffiiE# 2004-3099192 



12003-330797 



14/ 




[014] 



G 

Ml 



G 

CO 

Oh 



AJ 



tin 

ilrtn 



an 



G 

G 
■mi 



AJ 



tin 

Una 



G 

•HQ 



It 

AJ 



nun 



AJ 



G 



int> 



AJ 



tin 

tffla 



G 



G 

AH 



tin 

Win 



G 

8£ 



AJ 

tin 

win 



Infl 

vw 

G 

•flu 



AJ 

tin 

nun 



Ml 

Pit 

P 

G 

m 



43? 



47> 



4?> 



inn 



03 

4flT> 



CO 

JjtT> 



inn 
3*5 



4T> 

5fe 



tap 



CO 



LTD 




miE# 2004-3099192 



[HI 5] 



#K 2003-330797 



^-v: 15/ 



©IS 

lame I 
I* 



n 

a 



M 

win 

una 



It 



sis 



CO 

a. 



A3 

niii 



G 

•HQ 



ft £ tt 
tH 



It 

G 
4? 



G 



OS 



ft 
G 



Ml 



G 



G 



A3 J AJ 

tt 2 



In 



jflfll I .IttiIt 

Tnjr i imp* 
K? I 

•Willi 
K- K- 

mm 

G G 



s m m m m 



\™ m \m m \m m m m 



CVJ I CO I -^r I LO I CO I c-*- 




ffittE#2 004-3099192 



#H 2003-330797 



^-y: 16/ 




[HI 6] 



nnc 



G 



AJ 

tin 

una 



g 

5*1 



3TT 

em 

G 
G 

■nn 



mm 

K- 

AJ 

Wn 

iinn 



*^ 
33 

AJ 

tin 

itnn 



WttB 
G-ft 



tin 

Win 



G 

•nn 



AJ 

fi 



G 

A3 



S3S 
G 



CO 

inn 



AJ 

tin 

Win 



w 

P 

K- 
G 



AJ 

tin 

Una 
IE 



G 
-nn 




CKl 



CO 



to 



CO 



LO 




ffiiE# 2004-3099192 



mm 2003-330797 



^-v: 17/ 




ffifE# 2004-3099192 



#JH 2003-330797 



^-v: 18/ 



[H 1 8] 



< 


co 


CO 
P£{ 




* 

CO 


CJ> 
CO 

p*5 




CO 


CO 
CO 

P3 






CO 
►—I 


CO 

p£5 


r 


e 

CO 
I— ^ 


Pe5 
CO 

pe* 




CO 


PSi 
CO 
rv-". 






CO 
-J 


CO 


-J 


CO 


CO 




CO 


CO 
•—3 


^ ■■■■ 




















ASS 


e 


CO 


CO 

o 




CO 


CO 

o 


e 


CO 


CO 

o 


























• i 

* * 


1 < 




1 


*> M . - 

' ' 1 

-y 














t 






,: i • . 








« • 

. 

,gj ■ 


A 

CO 


co: 




CO 


*<; 

CO ' 


?<. 


CO 

B& 


CO 


















'*! ■ 










«( 




I 




co 


CO 
Pu, 
CO 


CO 

Cab. 

CO 




e 




ttiliE# 2004-3099192 



#JM 2003-330797 



^-vl 19/ 




ffiiE# 2004-3099192 



#M 2003-330797 



20/ 



120] 



/xu-j/hjEarajs (*o> 



i . 



©SciftSF(Bff04-ID2: 



®%*a<!>p-ID£ 



(D&tfp-lDSr&tfp-ID 
<2>&<J>p-lD£U7 




i^Stff?a3iil^TBLOPRD^T<7)52?B2fiS00^ 'J 7 
1 



G>§Hfl<I>p-ID£#:<I>p-ID »aiS|xU7l3-fe-v h 




(2>56$aOp-ID^i*:<Pp-ID3giilX>J7tC*fev h 





&?Sti5*ra*JPTBLOSR3D • R3M§i$B32lacO* 07 



&g&MSG&Jl 



CZlxZD 



*4>0fct, &4>p-IDm«£2oi#^. <I>0«^<I>p-ID©mjl!m^^#9BUT^?TTS<I>P&g^-rs, 
**p£S*r*l*8f£ffl@3Sti:, &4>p-]D®#£^&9 • -fey 

♦R3D> R3C, m\tm&ftm<omn%. «t4. s&fig. 



-I O . . >» I 



miEJif 2 0 0 4 



-3099192 



#H 2003-330797 



21/ 



12 1] 



<J>4 : K04 



<I>2 : ff02 



<J>3 : W03 



U^-lHl/fldEl/iJJJ^Ial 
4*fi|gfcF?»J7 

04^0 
4*2B£{tF*»J7 



L4SS2$fi*££'J7 

L4JB6«**»J7 
Uft7««$M)7 



L4ffif[s]tt$B&fl:F 

L4^®ttJBaHtF 
-L4ifflleIttflS&{tF 



L4©#V& 




R4 
T 



S4<z>jii£ 



C Bate D 



L2^E/tfiiE|/W*H 
12^0 



L2$g2Sai&# >J 7 
L2m6fl9«* »J 7 
L2m7m^^U7 



I2<E>&£ 



L2*EM*flMMtF 



L2©&£ 




R2C 

X 



R2 



C n 











uiB6«tt*ij7 



s 



L3imEIttflS?£ft:F 

-L3iffi*lElttag£ft:F 

L3^0«ftB^fkF 




**t8«<tFtt. *P*fcL4/L2/L3/04/I2©**lCWf n 1 ffl-foait*. 
fib. R* UMfME*) tS4 (MMMM) ttf$<. 

04/ 1 2 li-rlU ©^TS V >. 



2 2 ] 




(L2SI4««©*^) 

(i2m2««) 

— I2tf>f£ffl 



ffiiE# 2004-3099192 



#11 2003-330797 



22/ 




2 3] 



mm 



3 




IBS AJ 



ft. 






G 




1 1 . . i . • ■ 



- • > ■ > 

' ... 1 < 'I ' 

* r _ - • ■ 



t 



l 1 ■ 



i. 
k i- 



M ' 1 1 

I- 1 <• » 
"'It'.!* 



■ « 1 



si'ii 



-it- 



> . i 
t 




f 



• 1 1 

■ t • 



-•-«»-. 






. J . .>..v i 



. I. I ', I t t 





i • tAf 



life 



1 1*' - 



* -V 



i • ; ; • 







- ■ % - 



» 

1 1 





C<l »-J .TjpAi-'/TV 1 vJT TN TN 




.iff 



.«.-.: I. •• r : r T-,K - : ■ 



K-t :!ii,:J f<<- 



"i 



• 1%! 
i 



~ 1 'r . 



_.• - 1,. 

■» L "I I 



- .Ji : -.*«" : ; ; : ' ■ 

.? r* "i • 



I 
I 



r .1- 



- • I 

. i .- • 




» * ■ 



-L 



.ii,;.. 



HiiE# 2004-3099192 




tBlE# 2004-3099192 



IH 2003-330797 



24/ 




[112 5] 







G 




• a > - 
I' 



7 A 1 



I ■ 



- -r 



i 

» IX. 



.»" 



•I' 



r 

-»•! 



'it 



Ml •*•«■. 

>. '.-J. 





s .-. 




i — 
. .1 





^ .TO 







i 



«1 



1 • 



i t 




I 
I 



*.. tali 




» - 



1 ■ 
I 

• * 



■ : 'y SS-¥''^|^''%-^ -t- 

v.. . ! ;%: -:. " 7 :- ! ;« ; ;^Jf: . - 



! I 
i i 

r 



i 



i ■ • > 



i 



« 1 



I, 




ffiiE# 2004-3099192 



2003-330797 



^ - v : 25/ 




ffiSE# 2004-3099192 



2003-330797 



^-v! 26/ 



12 7] 



— i 

i 


a 


5 








ITS 


CO 

u-j 


c— 

U7 


oe 
co 


en 
u-> 


O 

«o 


to 


CH 

CO 


CO 
CO 


co 


to 


ce 

CO 


1— 

CO 


CO 


Ol 
CO 


















3 

t ■ 


I 


oo 


-T 


















d 

U» 


u» 


CO 


CO 

u-j 






























& 






us 

c-a 


»■— 


oo 

CO 


er» 
CO 






o* 


CO 


-T 




co 
•a* 


1— 

-7" 


























3 

* * 


s 


& 








































CO 














OAK 


« 








































CO 
















j 


1 










































CO 












CO 




a 








































c*« 

CO 














■ > i 










































CO 














» 


s 






































CO 
















co 
* 






































Ol 

















si m 

e s 



I 

K 

tv 



< S 

ft * ft ft 

3 3 



a? 
s 

A) 

Si 

it: 

e 







L 


CO 

«« 




















































CO 
CM 




?> 

V- 


OS 
















































CO 

CO 


CO 
























































CO 














IF 

Bf 
II 










































CK» 
















& 
SI 














































OS 












g 




I 












































co 

CO 
















IT 

41 






































en 




















■< 


US 
c-> 








































C-J 




























































CSl 
















3- 
*H 

B£ 


IS 
* 






























CO 


CO 




Op 




















us 


























CO 






























! 






C=> 


CO 


•-er 


US 


cc 


1— 


























































o 


o 


o 


o 








































K 




o 






o 


o 






o 


o 






o 


o 






o 


o 


1 


I 


) 


1 




















o 




o 




o 




o 




o 




o 




o 




o 










1 


1 


1 


t 


/ 












o 


o 


o 


o 


o 


o 


o 


o 










o 


o 


o 


o 




o 


o 


o 














•< 




o 


o 


































o 


















CM 






CO 


3 








233 




3 




CO 


3 


s 


CO 

—1 


■V 
oc 


CJ 
ol 
OS 


S3 


tut 

CO 






/ 


/ 


m 

'•is 






•=? 
-< 


V 


9E 


BP 

31 




s 
s 


2 






/ 





























si 
3 



23 

■fi- 
re 
* 



mtE# 2004-3099192 



[12 2 8] 



#111 2003-3307 97 



m 



^-v : 27/ 



« 


on 
W 

n 

UK 

ifiia 

11$ . 
S rS 


o 

V j 

m 

si 

33 o 

H-\. 

X lite 

wn 

iron m 

38 


•*> 

}ij 

Sn 

s 

o 

JL!<W 


o 

wn 

turn 

e 

<\ 

X 

I 

•fr 

G 
G 
A 

n 

< 


o 

wn 

una 

+H 
G 

X 

i 

■fr 

St 1 

G 

G 

A 
I* 

n 

K 


wa 

una 

G 

A 

n 

•R 

< 


o 

wn 

mm 

G 

X 

i 

■fr 

K 

N 
G 

G 

A 

n 

■R 
33 


o 

Wn 

imn 

G 
J- 

*< 
m 
I 

•fr 

BP 
^! 
G 

G 

X. 

A 

n 

-R 
33 


! o 

i 

itna 

m 

G 
A 

n 

•R 
3=1 


o 

□3 
G 

CO 

EC 


* 

o 

Wn 

'ina 

G 

«? 

N 




"H i I- , 

'it; 


p 

" Pi 

• • 1 

* » * • • 

■ - r , • 

♦ ■iii 
■ t • 

• \ :;.{:• 


• • 


l 


1 




i 


I 








wn 

tliin 

tH 


1 

- * i • * 

; tt'i. 
• ••«*•' 
. ; ■ » 

•■/i-'it:'''. 

- 1.1 


; t .,; 

* ' ■ 
* • 


V 

^! 

■ * i 

- i. S / • 

* j - 


•fr 

K 
N 


•fr 

mil 


B? 


•fr 
K 
¥ 

N 


•fr 

Bp 
«! 


trtil 

TO 

tjllBt 








i 1 

t ■ * 

. - • i • 


i ■ 


i 

r, i ' 'I ' ■' 

• X" 


m 

■R 

K 


at 

■R 
33 


^ 


IP 


w 






CO 




LTD 






oo 


CTi 







tBiE# 2004-3099192 



#H 2003-330797 



^ - v : 28/ 



[0 2 91 



lb 

-R 

K 

■4H 



© 

wn 



ft" 



■R 



fin 

u 

CS1 



O 

ft- 

AJ 



•R 



G 

wn 

ims 



12 

lb 
AJ 



tTTi 1 

¥? 
33 

mi i 

St? 

m 



o 



AJ 



$1 



s 

wn 

Hud 



S 



A3 
5§ 



Ma 

tma 

© 



o 

It 

w 



Wn 

una 

e 



rrrtt 

Br 

m 

G 



Ura 

G 



Wn "R 

•ran Imtt 

ill inn' 

©^ 



1_ tiiia 

j-j una 

if 



© 

Wn 

1MB 



Ml'* 



+u © 



v5 #i 



•R 



-R 
33 



CO 



ffifE# 2004-3099192 



#M 2003-330797 



^-y: 29/ 




[130] 



•ft 

G 
■kg 



wist 

& G 



G 



JJi. 



1|E 

SI 



43 



H 



M * 

m & 



ilitn 3? . Hun 



ii 



G 
Btf 



< 33 



Btf 



UK 



m 
m 

411. 



m 

EE 



Br 



BE 



CS3 



co 



CO 



CO 



CO 



CO 



o 



O 



o 



n 



o 



CH5 



CO 



Csl 



GO 



Os5 



CO 



CO 



C*<J 



CO 



oo 



C7* 



fflfE# 2004-3099192 



#11 2003-330797 



^-v: 30/ 




H 3 1 ] 



o 

4 



AJ 
x 



<ncr 



CS3 



1 

WO 



1 



nnn 

© 

CO 



CN3 



CV3 



ion 



C^3 



l 

K 

N 
■R 
K 



^T 1 

38 



I 

re 1 



■R 
< 



i 

N 
■R 
33 



flits 



I 

mi 1 

St 1 



33 



^r 1 



finn 

am- 



■ " ? .'"="■ 

8 ;.a:U-.* 



•R 
33 



G 
I 

K 
P 
*s 
N 
-R 
33 

ru 

■lua 

AW 



CO 



CN3 



CO 



LTD 



CO 



C7i 



mtE# 2004-3099192 



[SI 3 2] 



#HS 2003-330797 



31/ 



2S 



o 



I® 



S 



CM 

m 





m 












m 


IS 













CO 



—3 



AD 



3C 



o 



o 



CM 

AD 



□ 



CM 



o 



o 



AH 



CM 



o 



o 



CM 



o 



o 



CM 

AH 



■IV 

*TI\ 

CM 



o 



o 



o 



CM 



LC2 



CO 



OO 



CM 

AB 



t53 



O 



CM 

AD 



m 



o 



H s M g 



CM 

A!) 



o 



CM 

Af! 



£9 



o 



o 



CO I -rr I LT3 I CO 



4£ 



S<3 



■R 



OO 



CM 



rr-n 

if 

•R 
K 



u 



BP 
0 
•R 

a 



CM 



-U' 



CM 



m 



CM 



co 



■ I CM I CO 
CM I CM I CM I CM 



US 

a <» 

»K « 

8 ^ 

*! ft 

IS Q 

3ft- S 

+<* K> 
<fcc 

*P 

. * a 

5g 5£ tS 22 

— ■ CD = F5 

# * » * 



I ! 

* * 

■R -R 



} i 

K K 

N 
-R 
B 



IK 
» 

w 

J? 

S? BK 
® K- 

© . 



o 

CM 

» 

& 



-C\ 

•R 



CM a 

G £* 

65 IS 

T CM 

nr co 

•J •— 1 

* * 



ffiSE# 2004-3099192 



#H 2003-330797 ^- v : 32/ 



[03 3] 



to 


o 
* 

G 

Mn 

4H 

0 

IS 

B? 
G 

HQ 

ma 

+H 
£ 

+0 

to 

CM 


o 

Ka 

« 

*p 
-4 

*\ 

n 

G 

G 

Mn 

fan 
Tn 

Hi? 

to 

tfcra 

-M 


W 

•R 
Ma 

AJ 

Of 

iz_ 

A 

n 

■R 
33 

•R 
W 

AJ 

« 
ft 

A 

n 

■R 


AJ 

G 

Ma 

nan 

W 
Q 

r-i 

W 
*J 

G 

Ma 

ina 

m 

Q 

CM 

m 

\ J 

« 

> 

* o 

VR 


o 

K> 

« 

R 
* j 

MB 
G 

Ma 

usa 

w 

G 

CO 

G 

Ma 

VU3. 

G 

r-H 

m 

11 

K3 

* 

< 


o 

N 

@ 
G 

CO 

m 

tit 

V 

Ma 

tna 

w 


o 

to 

IS 


e 

X? 

to 

g 
* 

« 

G 
BP 

m 

J- 

^ 

• 
• 

Ad 
Ma 


* 

G 

rrrtl 

TO 
'jo* 

m 
-w 


o 
1^ 

if 
G 

to 

Ma 


m 

H 

% 
•K 

o V 

^ rN 

to°° 

88 r 

^@ 

m 


o 

to 

5b 

OP 

* J 

-H 

* 
* 

G 

Ma 

W 


a 

-His 

to 

m 

6? 

G 

J- 


o 

m 

G 

CSJ 

G 

<N 
*< 

Dg 

CM 
C3 


inJ 

JO* 


o 

W 
G 

m 

Ml 

G 
j- 

Dg 

M 


BE 


o 

to 

m 
to 

CO 

G 

CO 


In/ 


o 

V 

^? 

m 

-> 

_^ 

a. 

■Cn 
♦< 


o 

a*5 

G 
^_ 

A 

n 

•R 
G 

li 

BP - 

m , 

its 
«s 
a 


o 

K* 

to! 

G 
A 

n 

■R 

f » 
■Rw 

as 

44 = 

tt •• 
WW 


O 

IS 

In 
V 

G 

Mn 

tiao 

W 


o 

*|u s 

G 

Ma 

win 

4H 


o 

tO 
to 

€ 

as 


o 

tO 

CO 

ru 

G 
Ma 

«taa 


Kg 




as? 

fi 


■R 
33 
< 


fi? 
Ma 

ma 


G 

*> 

4? 
<n 

m 
© 

is 


w 
m 
» 


ere 
H 


m 
m 


r»tH 


to 


a? 

s? 
to 


«P 
an 

W 
to 


o 

>> 




oo 






co 
<=> 




« 
to 

m 


s 


fi? 




US 




m 


a? 


J7> 

mp 
ip< 
co 

m 








CO 






CO 




oo 


CD 








CO 




LA 


CO 




oo 


OS 








CO 
CJ 


CO 


uo 


CO 
CVI 



ffilE#2 004-3099192 



2003-330797 



33/ 




3 4] 



4H 



■nn 



We 
G 



ru 

itiin. 



"eg 



CO 



lift" Sa 



•■i ■ 



Una 



) -a 

•on 



j©»- 



: t.- - ■ 
-■Oh 



•j . 



I-*, 1 {■ • 



ll-- 



• , L r . ; ■ j i • ' ii 



t • . 

ill!'.- 



I 

CO 



•En 



' a* 



• * 1 • ' » 



i'.'ISK" 



OSS 
00 



I 

CO 



03 
I 



CO 
Os5 



CO 



CO 

P=5 



co 
I 



CLJ> 
CO 



I 

CO 



CO 



CM 



CO 
I 



CO 



I 

CO 



CO 



CO CO 

00 



I 



CO 



CO 

I 

CO 



CO 



CO 



G 

pc-, 

CO 



1 lr-> 
JJI — 

P 

"4 o 

G K» 

Eg <Jo\ 

•W & 

ccri cj> 

CO 



6 



\ G ^- E 
^ s A ^ 



, G 

£6 t^- 



^ 



2- -H 



•": s t« 

O ^ 4f 
* * * * 



ffitS£4# 2004-3099192 



#M 2003-330797 ^- v : 34/ 

[0 3 5] 



\ 

i 




mm 


*9 bJl'V'&mm® 


At TVt 


UIIT* 










Ver 




mm 












i 

i 


IE2S 








I 7 


0010 


VB 


66 


01 


12 


01 


0 


1 




9 

b 


■ ■ p 4-n 

1E*£ 








1 1 
Lo 


0020 


VB 


66 


01 


L3 


03 


0 


3 




3 


IEM 








1 A 

L4 


0030 


VB 


66 


01 


L4 


03 


0 


3 




d 

4 


JEM , 


O 






Li 


0040 


VB 


66 


01 


L2 


02 


0 


2 








o 






I 7 


0050 


VB 


66 


01 


L3 


05 


0 


5 




ft 
u 




o 






1 A 

L4 


0060 


VB 


66 


01 


L4 


05 


0 


5 




7 
i 


iE^ 




o 




t 7 

Lo 


0070 


VB 


66 


01 


L3 


04 


0 


4 




0 

o 






o 




t A 

L4 


0080 


VB 


66 


0) 


L4 


04 


0 


4 




Q 

3 


jOE& 


o 


o 




Lo 


0090 


VB 


66 


01 


L3 


06 


0 


6 




in 

1U 


IE 81 


o 


o 




t A 

L4 


0100 


VB 


66 


01 


L4 


06 


0 


6 




1 1 


IE& 






o 


Lo 


0110 


VB 


66 


01 


L3 


07 


0 


7 




i L 








o 


t A 

L4 


0120 


VB 


66 


01 


L4 


07 


0 


7 




Id 


iE& 




o 


o 


Lo 


0130 


VB 


66 


01 


L3 


08 


0 


I 8 




\A 
IH 


IE& 




o 


o 


1 A 

L4 


0140 


VB 


66 


01 


L4 


08 


0 


8 




1 c 
1 D 


IE& 


o 




o 


L3 


0150 


VB 


66 


01 


L3 


09 


0 


9 




1 U 


IE& 


o 




o 


L4 


0160 


VB 


66 


01 


L4 


09 


0 | 


9 




17 


IEJ£ 


o 


o 


o 


L3 


0170 


VB 


66 


01 


13 


10 


0 


10 




IS 


iES 


o 


o 


o 


L4 


0180 


VB 


66 


01 


L4 


10 


0 


! io 




1 Q 


K 








L3 


0190 


VB 


66 


02 


L3 


11 


0 


n 




9n 

6U 


K 








L4 


0200 


VB 


66 


02 


L4 


11 


0 


u 




' i i 


K 




o 




L3 


02)0 J 


VB 


66 


02 


L3 


12 


0 


12 




70 


K 




o 




L4 


0220 


VB 


66 


02 


L4 


12 


0 


12 




91 
to 


K 


o 






L3 


0230 


VB 


66 


02 


Lo 


13 


0 


13 






K 


o 






f M 

L4 


0240 


VB 


66 


02 


L4 


13 


0 


13 




9G 


K 


o 


o 




L3 


0250 


VB 


66 


02 


L3 


14 


0 


14 




7ft 


K 


o 


o 




L4 


0260 


VB 


66 


02 


U 


14 


0 


14 




97 
£ 1 


M 








L3 


0290 


VB 


66 


03 


L3 


17 


0 


15 




9 3 
6 0 


M 








L4 


0300 


VB 


66 


03 


L4 


17 


0 


15 




is 


M 




o 




L3 


0310 


VB 


66 


03 


L3 


18 


0 


16 




9fl 

oU 


M 




o 




L4 


0320 


VB 


66 


03 


L4 


18 


0 


16 




0 1 
01 


M 


o 






L3 


0330 


VB 


66 


03 


L3 


19 


0 


17 




77 


M 


o 






L4 


0340 


VB 


66 


03 


L4 


19 


0 


17 




19 

GO 


M 


o 


o 




L3 


0350 


VB 


66 


03 


L3 


20 


0 


18 




04 


M 


o 


o 




L4 


0360 


VB 


66 


03 


L4 


20 


0 


18 




9C 
03 






L3 


0370 


VB 


66 


04 


L3 


22 


0 


20 




9R 
■3D 






1 A 

L3 


0390 


VB 


66 


05 


L3 


22 


0 


21 




97 






ff A 

L3 


0410 


VB 


66 


07 


L3 


24 


o 1 


23 




oo 






I A 

L3 


0430 


VB 


66 


08 


L3 


24 


0 


24 




90 


A ft =3 "7 > K 




12 


0450 


VB 


66 


06 


12 


21 


0 


19 




dn 






04 


0460 


VB 


66 


09 


04 


23 


0 


22 




4 1 
** j 






R4 


0470 


VB 


66 


10 


R4 


25 


0 ! 


25 




49 

HL 






RZC 


ni on 

0480 


VB 


66 


11 


R2C 


25 


o 


26 




43 






R2 


0490 


VB 


66 


11 


R2 


25 


0 I 


77 




44 










R3R 


0500 


VB 


66 


12 


R3R 


25 


0 


28 




45 


jE& 








L3 


0510 


VB 


66 


01 


L3 


03 




II 




46 


jE& 








L4 


0520 


VB 


66 


01 


14 


03 




11 




47 


ie*s 


o 






L3 


0530 


VB 


66 


01 


L3 


05 




13 




48 


1E& 


o 






L4 


0540 


VB 


66 


01 


L4 


05 




13 




49 


JEM! 




o 




L3 


0550 


VB 


66 


01 


L3 


04 




12 




50 


IE#t 




o 




L4 


0560 


VB 


66 


01 


L4 


04 




12 




51 


IE*! 


o 


o 




L3 


0570 


VB 


66 


01 


L3 


06 




14 





ffiSE#2 004-3099192 



#JH 2003-330797 ^- >? : 35/ 



[03 6] 





2 




h )V 

fiiS'J 










\ 






mmft m*m 




am 

Ver. 


££5 

VSitri 


~ tv 

m\ 


(T\fn 

VJfO. 


vm 








\ 








lir *1 






52 




O 


o 




L4 


0580 


VB 


66 


01 


L4 


66 


— — 


14 




53 


i JEM 

mm. ■ in 






o 


! L3 


0590 


VB 


66 


01 

U 1 


L3 


07 

U 1 


— r~ 


1H7 




54 


iEiw 






o 


L4 


0600 


VB 


66 


01 

U | 


L4 


ft? 


— p 


1U7 




55 






o 


o 


L3 


0610 


VB 


i 66 


01 

U 1 


ItU 


68 


— p 


12*8 




□6 


IE® 




o 


o 


L4 


0620 


VB 


6G 


01 

U 1 


L4 


08 
uo 


— j— 


1248 




57 




o 




o 


L3 


0630 


VB 


66 


01 

U 1 


L3 




— j— 


13S9 


It sniff, H;^?- 


58 




o 




o 


14 


0640 


VB 


66 


01 


1 4 


OQ 


-— 


1349 




59 


$ mm A\r» 


o 


o 


o 


L3 


0650 


VB 


66 


01 

U J 


L3 


in 


— j— 


14410 


L' m jn= /fc =. 


/* rt 

60 


-i-i - J*-! 

JE& 


o 


o 


o 


L4 


0C60 


VB 


66 


01 

U 1 


I A 


10 

1U 


— — 


14410 


t'/T\J6» 


61 


K 








L2 


0670 


VB 


66 


02 

U t> 


1 ? 


9 1 


n 
u 


11 




62 


K 


o 






L2 


0680 


VB 


66 


02 
u c 


1 9 


Q9 


u 


13 




rt n 

63 


S4 (12182) 

rt i y » n A % 




S4 


0690 


VB 


66 


1 u 




91 
L \ 


n 
u 


29 




64 

rt ■» 


S4 (I2f54) 

rt A t r> A *\ ^ V 




S4 


0700 


VB 


66 


i *i 




£ 1 


n 
u 


30 




65 

rt rt 


S4 (04^4) 

rt A fw A Am*** A V 








S4 


0710 


VB 


66 


IS 

1 o 


O'l 


9*1 
Co 


n 
U 


33 




66 


S4 (L43S4) 

rt A Mm m jmU j % 








S4 


0720 


VB 


66 


in 

1 u 


14 


Uo 


n 
U 


36 




67 


S4 (L4&4) 

rt J ^» j JiAi a v 




o 




S4 


0730 


VB 


66 


16 

1 u 


14 


U4 


n 
u 


37 




68 


S4 (L4SS4) 

rt A f+> A AUkm M m 


o 






S4 


0740 


VB 




16 

1 u 


14 
01 


ug 


A 

u 


38 




69 


S4 (L4&4) 


o 


o 




S4 


0750 


VB 


66 


16 
J u 


14 

OH 


OR 
UO 


ft 

u 


39 




70 


S4 <L4i£4) 






o 


S4 


0760 


VB 


66 


16 


14 


117 


ft 

u 


40 




71 


S4 (L4&4) 

rt A Afm A Ammm * %. 




o 


o 


S4 


0770 


VB 


66 


16 


14 


Uo 


U 


41 




72 


S4 (L4S84) 


o 




o 


S4 


0780 


VB 


66 

UU 


16 
1 u 


14 
04 


no 


u 


42 




! 73 


S4 (L4354) 


o 


o 


o 


S4 


0790 


VB 


66 

UU 


16 

1 u 


14 


i n 


n 
U 


43 




74 


S4 (L4m4) 








S4 


0800 


VB 


66 


16 
1 u 


14 
o4 


1 1 


A 

u 


44 




75 


S4 (L4m4) 




o 




S4 


0810 


VB 


66 


16 
1 u 


14 
34 


19 


ft 

u 


45 




76 


S4 0,4854) 


o 






S4 


0820 


vb 


66 

UU 


16 

ID 


1^ 
34 


1 0 


U 


46 




77 


S4 (L4&4) 


o 


o 




S4 


0830 


VB 


66 

UU 


1 fi 
I D 


14 
34 


14 
14 


n 
U 


47 




78 


S4 (L2m4) 








S4 


0880 


VB 


66 

UU 


17 


14 
34 


ul 


u 


48450451 




79 


S4 (L2S54) 


o 






S4 


0890 


VB 


66 

UU 


1 7 


14 
34 




ft 

u 


49452453 




80 


! S4 (L3&4) 








S4 


0900 


VB 


66 

UU 


1R 


34 


U4 


ft 


54 




81 


S4 a3m4) * 




o 




S4 


0910 


VB 


66 


Ift 
10 


14 
34 


U4 


n 


55 




82 


S4 (13^4) 


o 






S4 


0920 


VR 


66 


1 8 
10 


14 
34 


Ua 


n 
U 


56 




83 


S4 (L3m4) 


o 


o 




S4 


0930 


VB 


66 

UU 


1 ft 


14 
34 


Uo 


0 


57 




84 


S4 (L3fg4) 






o 


S4 


0940 


VR 


66 

UU 


la 


14 
34 


Ul 


n 
U 


58 




85 


S4 (L3SS4) 




o 


o 


S4 


0950 


VB 


66 

UU 


1R 
10 


14 
34 


no 
Uo 


ft 
U 


59 




86 


S4 (L3SS4) 


o 




o 


S4 


0960 


VB 

1 MI 


66 

UU 


1 ft 


14 
34 


no 


ft 

u 


60 




87 


S4 (L3S4) 


o 


o 




S4 


0970 


VB 

* U 


66 

UU 


1 o 


14 
34 


i n 

1U 


ft 

u 


61 




88 


S4 (L3®4) 








S4 


0980 


N'B 

• A3 


66 

UU 


1 o 


14 
34 


1 1 
1 1 


ft 

u 


62 




89 


S4 (L3SJ4) 




o 




S4 


0990 


VB 


66 

UU 


18 
J o 


14 
34 


1 L 


ft 

u 


63 




90 


S4 (13^4) 


o 






S4 


1000 


VB 


66 

UU 


la 


14 
34 


IO 


n 

u 


64 




91 i 


S4 (L3£54> 

rt ' ft Ammm * * 


o 


o 




S4 


1010 


VB 


66 

UU 


IO 


14 

34 


14 
J4 


ft 

u 


65 




92 


S4 (L3&4) 








S4 


1020 


YB 


66 

UU 


18 


14 

34 


17 


n 
u 


66 




93 


S4(L38S4> 




o 




S4 


1030 


VB 


66 


18 


S4 


18 


0 


67 




94 


S4 <L3®4) 


o 






S4 


1040 


VB 


66 


18 


S4 


19 


0 


68 




95 


S4 <L3^4) 


o 


o 




14 

04 


1050 


VB 


66 


18 


S4 


20 


0 


69 




96 


S4 (L3^4) 




S4 


1060 


VB 


66 


18 


S4 


22 


0 


31432 




97 


S4(L3m4) 








S4 


1070 


VB 


66 


18 


S4 


24 


0 


34435 




98 


JEM ] 








L4 


1080 


VB 


66 


01 


L4 


03 


0 


3 




99 


JEM 


o 






L4 


1090 


VB 


66 


01 


L4 


05 


0 


5 




100 


JE& 




o 




L4 


1100 


VB 


66 


01 


L4 


04 


0 


4 




101 


5E& 


o 


o 




L4 


1110 


VB 


66 


0) 


L4 


06 


0 


6 




102 


JEM 






o 


M 


1120 I 


VB 


66 


01 


14 


07 


0 







tBIE# 2004-3099192 



#fl 2003-330797 ^- *J \ 36/ 



[03 7] 



r 

V 

\ 
\ 


£25 






• Via p \ 4 

ft* 


MM ^ 








cSca 
K# 


■fir IK 

Ver. 


flig'J 




com 




(#]) 






1 uo 






o 


o 


L4 


1130 


VB 


66 


01 


14 


08 


0 


8 




1 OA 




o 




o 


L4 


1140 


VB 


66 


01 


14 


09 


0 


9 




i 

1UD 




o 


o 


o 


L4 


1150 


VB 


66 


01 


14 


10 


0 


10 




1UD 


K 








L4 


1160 


VB 


66 


02 


14 


1) 


0 


11 






K 




o 




r a 

L4 


1170 


VB 


66 


02 


14 


12 


0 


12 




JUo 


K 


o 






14 


1180 


VB 


66 


02 


L4 


13 


0 


13 




i no 

joy 


K 


o 


o 




* * 

L4 


1190 


VB 


66 


02 


L4 


14 


0 


14 




tin 


M 








L4 


1200 


VB 


66 


03 


L4 


17 


0 


15 




1 1 1 
1 1 1 


M 




o 




L4 


1210 


VB 


66 


03 


L4 


18 


0 


16 




110 

1 12 


M 


o 






L4 


1220 


VB 


66 


03 


L4 


19 


0 


17 




1 1 0 

1 la 


M 


o 


o 




L4 


1230 


VB 


66 


03 


L4 


20 


0 


18 




1 1 A 

1 14 


TEM 








L4 


1280 


VB 


66 


01 


L4 


03 


1 


11 




I lb 


jE& 


o 






L4 


1290 


VB 


66 


01 


L4 


05 


1 


13 




tic 

1 16 






o 




L4 


1300 


VB 


66 


01 


L4 


04 


1 


12 




1 17 




o 


o 




L4 


1310 


VB 


66 


01 


L4 


06 




14 




1 18 








o 


1 4 


1320 


VB 


66 


01 


L4 


07 




1 let 


L' *T\ 2c2 »i- 


119 


JE& 




o 


o 


L4 


1330 


VB 


66 


01 


L4 


08 




1218 




120 


lEM 


o 




o 


L4 


1340 


VB 


66 


01 


L4 


09 




13S9 




121 


JEM 


o 


o 


o 


L4 


1350 


VB 


66 


01 


L4 


10 


1 


14410 




122 








9999 


VB 


66 


99 


99 


99 


0 






123 


4>0 






2000 


VB 


66 




TO 






fit 

Hn 




124 


4>2 






2100 


VB 


66 




W02 






M 




125 


*3 




<J>3 


2200 


VB 


66 




ft*03 






*m 




126 


*4 




4>4 


2300 


VB 


66 




W04 






<»>» 





taiE#2 004-3099192 



<WM 2003-330797 



^-vl 37/ 



[138] 



Mt*lW£VlLt. L y e e BELTigg(PftfSs;for. 







m& i d 


1 — 


1 

1 


X3 VI* 


IVPPRPIT <sllVi I on 1 Uamn 

L>i »-CPCLI_3UDJ cClri jEjc 


3*0 le 


2 


_¥ __— — - 
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LyeeBELT_SubjeclKlnd 


3X048 


5 
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LyeeBELT.EauivalenceNo 


§2063 
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W04S4 (SUB) 


LveeBFLT WQ4ROY4WS 
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W0 4^4 (WORK) 


LyeeBELTJfr04B0X4ffL 
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LyeeBELT_DataType 




8X2356 (SS^miStZ)^— 


36 




LyeeBELTJataLength 


6X248 
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LyeeBELT_Decima] 
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LyeeBELTJtowNo 
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Option Explicit ~ - ^ ^ . 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ EfflSU $$$$$$$$$$$$$$$$$$ 

Rem ***rL— tf£ : 

Rem ***->XtAS : 

Rem M«t«H : 1 

Rem ***Vector£=£— Jl@ ******** 

Rem : 0010 

Rem ***»**&«K» : 0 

Rem ***^ggagil : VB 

Rem ***S8i^T-va > : 66 

Rem ***£fig*iBiJ : 01 

Rem ***^ hiPUM : L2 

Rem ***^ttGDjfi&1£ : 01 

Rem ***Sltt : 0 

Rem *3zm& : @*0l§ 

Rem #±5§ID : 8X020 

Rem #**&*! (PRDSSgiJ^SFIftgiJ^iaafriSlgijTF) : 0*280*290*108 

Rem ***^^7 hi^Xf- £X******* 

Rem t**Xf-^X«« : @*STS@ CO* : ^7/ ' : 

Rem BB##fi> : @%T1ME@ 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$$$ 

Rem #DEFPUB ** teftmmM 

Rem PUB4N2 mmmiEMm®, 

Private K0X3O0_8X3l8_8*288_0*298_0*O20 As @*238 
Rem PUBIN2 «2&*Hftjftflttft 

Private 0%310_®X280_0X290_0*O2® As 0X230 

Rem PUB5C2 )B5attiESflMt ttflflWfc^y (^B) 

Private CTRL_W§X30O*28O*29@ - STS_TRANSITI0N_FLG As Integer 

Rem PUB5Y2 ^b^IE^m^ tttMMt^y mm) 

Private CTRL_W§*30O*28O*29@_STS_TRANSITI0N_FLGJ > As Integer 

Rem PUB5B2 ffl5S«JlE&gt« <KSg3E<ft7^ (19*13) 

Private CTRL„We*30O*28O*29OTS_TRANSITI0NJLG_PP As Integer 

Rem PUB6F2 fl(6»ttjEtt«tt TtiLtiy^y 

Private CTRL_W*30O*3lO*288_«*29i_iX02iJI0T^VALIDJ ? LG As Boolean 
Rem ^DEFEND 

Rem IDEFPRV ** &W®*agB 

Rem PRV2T2 *2»B«jMMt 

Private W0X3O8_8X3ie_§X28e. - 8X298_8XO2e_wk As 8X230 
Rem PRV7R2 K7«ttnBflltt 

Private CTRLJ"0X3O8_©X290JNGJ 7 LG As Boolean 
Rem PUBKU ^CDffll 

Private CNS_N0T_KUOX23@ As 0X23® 
Rem IPRV2W2 tMtttt"^ hJVtoimW* 



Rem #DEFEND 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ffim$i $$$$$$$$$$$$$$$$$$ 

Rem # £§§ID : 8X028 mm (PRD_SF JiSflO : 8*280*290* 100 

Rem * 

Public Sub MainO 



0X1520 



Rem $PRY2E2 — 
Rem SPRV4T2 — 
8X1550 



Rem $PRV4E2 — 
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♦ y y Agg§a<VBta*g£<a%i%&ai] i ogy 

Rem 3VECREP Private Sub L2^W31OX28O8529^§X02§ 0 
B0X_1: 
Ren PRVLG 

If «W306_.6%3l§_.§X28O*29§_©*02§ » CNS_N0TJCUH_6X23§ Then 

GoTo B0X_2 
End IT 

GoTo BOXJE 
B0X.2: 
Rem PRVLG 

m30©_§*3ie_e%28M*298_8*026_wk = ©X3IOX28e_8S29MX02§ 
BOX J: 
Ren PRVLG 

If m30M*3ie_§*28§_§X298J«02§_wk O CN$_N0TjaJH_§X23© Then 

GoTo B0X.4 
End If 

GoTo B0X_5 

BOX J; 
Rem PRVLG 

V©3530§_ea53l§ - §X28OX29e^§X02Q = B'eX30©_eK3J§_§X28M*29MX02§jfk 
Ren PRVLG 

CTRLjeX30^§X28§.§X29e_STS_TRANSlTION_FLG 
« CTRLJ§*3fle_eX28©„6X298_STS_TRANSITI0N^FLG + 1 
GoTo BOX_E 

B0)L5: 
Ren PRVLG 

If CTRL_We*30§_©X28§_§%298_STS_TRANSlTION_FLG_P = CTRLJ§55308_§3!28^©X29e_STS^TRANSITION^FLGJ , P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

BOX J: 
Rem PRVLG 

CTRLJ'§SI30e_§X31§_©X28e_§X29§_eX02O0T_VALID^FLG = True 
GoTo BOXJ* 

B0X_7: 
Rem PRVLG 

CTRL3§*308_6X29ejNGJ ? LG = True 
GoTo B0X_E 
BOO: 
End Sub 

Rem m PRCEND 
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Option Explicit 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ afflgs $$$$$$$$$$$$$$$$$$ 

Rem ***:i— tffc : Ube 

Rem rnxX^A^S : 

Rem ***£&JSf|iJ : 7 

Rem ***Vector£3r— Jgg ******** 

Rem *Mfl#f : 0120 

Rem ***8i&^IE:# : 0 

Rem ***Hg^BU : VB 

Rem mfg^r-ya > : 66 

Rem ***£gg®gij : 01 

Rem ***^£ MHigiJ : L4 

Rem ttm&om&l* : 07 

Rem ***^lt : 0 

Rem #£g§£ : T-^> 

Rem SigglD : MAJIN 

Rem m&M (?*mm*JSfmi¥Jfomftmm : PRDl_SF15_Asnd 
Rem ***^£ h^cox^—^^.******* 

Rem #**X-5r-*Xti?$B : *0* CO* : 5£7, ' ' : 

Rem #**±jsfc*M BP### : 03/07/21 13:44:38 

Rem *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$$$ 

Rem SDEFPUB ** &W®t£g|5 

Rem PUB4N4 flS4A£)IEft«Mt 

Private fOsndJRDLSFlBJttJIN As Integer 

Rem PUBIN4 *2«tiMjA«nft 

Private ff2_Arec JPRD 1_SF 1 5_TEI KA As Integer 
Private ff4JUnd_PRDI_SF15JUtfUNT As Integer 

Rem PUB5C4 mSMmiEMm® ttJMft^y (<*H) 

Private CTRLJ4_PRD1J5F15JTSJRANSITI0NJLG As Integer 

Rem pub5Y4 msmsiEmm® fcrn^it-? ? !? (g&ia) 

Private CTRLf4JPRDLSF15JTS_TRAHSIT10NJLGLP As Integer 

Rem PUB5B4 MSAffliEttflUK ttttHEfc^df (Mf^rB) 

Private CTRL_W4J > RD1_SF15„STS_TRANSITI0N_FLG_PP As Integer 
Rem PUB6F4 m6&#)IE3!fi^ ^^LV^tf 

Private CTRL.WOsndJ»RDLSF15JiAJINJ<0T VALID_FLG As Boolean 
Rem #DEFEND 

Rem PUB4B4 K4&tt«JHMt 

Private W4_Asnd_PRDl_SFl LAMUNT As Integer 

Rem PUB4N3 W3<am4*S^IESim*£ 

Private W3_AsndJ>RDl_SF15J[AJIN As Integer 

Rem PUB4N2 W2CJ>«4«JKjiE«ffl« 

Private W2_Asnd_PRD LSF i 5_MAJ IN As Integer 
Rem #DEFPRV ** 

Rem PRV2T4 ft2SttttjjMR* 

Private W4JVsndJ>RDLSF15J!AJIN_wk As Integer 

Rem PRV7R4 lK7tt«J¥ffiflMt 

Private CTRLJM.SFISJNG.JLG As Boolean 
Rem *PUBKU &<om 

Private CNSJTOT_KUH_String As String 
Private CNS_N0T_KUH_Integer As Integer 
Private CNSJIOTJttJH_Boolean As Boolean 
Private CNSJ*0TJCUH_Long As Long 
Private CNS_N0TJQ1H_S ingle As Single 



tit}§E#2 004-3099192 



#M 2003-330797 



^-sj: 41/ 



[H4 2] 

Private CNS_NOTJvUHJ)ouble As Double 
Private CNSJWTJMLVa riant As Variant 
Private CNSJ*OTJWH_Currency As Currency 
Private CNS_NOT_KUH_Byte As Byte 
Private CNSJWTJKUOate As Bate 

Rem $prv2W4 ismm** hJIrftfMRfiMt mith 

Rem SPRY2E4 BZMm^? hilfoimM® 

Rem SPRY4W4 mmm** hJUftftUBflUft mt& 

Rem $PRV4E4 SB4JSfi^ h A^fPSgSBIjl «7 

Rem #DEFEND 

Rem *$$$$$*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ nSW $$$$$$$$$$$$$$$$$$ 
Rem # igglD : MAJ1N J*« (PIULSFJfefltt) : PRDl_SFI5_Asnd 
Public Sub Main 0 

Rem SVECREP Private Sub L4_AsndJ>RDI_SF15JIAJIN_l 0 
BOX J : 

If W4_Asnd_PRDl_SFI5JIAJIN = CNSJWT.KUHJnteger And _ 

W3_Asnd_PRDl_SF15JIAJIN = 1 Then GoTo B0X_2 
End If 

GoTo B0X_E 

B03L2 : 
Rem PUB IN 

If W2_ArecJRDLSF15_TElKA = CNSJIOTJOJIUnteger Then GoTo B0X_3 
If W4^Asnd_PRDLSF15_AMUNT = CNSJTOTJHJHJnteger Then GoTo B0X_3 
U Jksnd J>RD1_SF 1 5_MAJ I N_wk 

= Val (W2^Arec„PRDLSF15_TElKA * M_Asnd_PRDl SF15_ANUNT) 

BOX J: 

If W4_Asnd_PRDl_SF15_MAJIN_wk O CNS_N0TJOJH_Integer Then GoTo B0X_4 
End If 

GoTo B0X„5 

B0X.4: 

W4_AsndJRDLSF15JIAJIN = »OsndJRDLSF15JIAJIN_wk 
ff4_Asnd_PRDLSPliJUWJNT = W4_AsndJ>RDLSF15JlAJIN 
CTRL_W4JPRD ]_SF 1 5_STS_TRANS I T I ONJLG 

= CTRLJ4J>RDUSF15_STS.TRANSIT10NJ ? LG + 1 
GoTo BOXJ 

B0X_5 : 

I f CTRL_W4_PRD 1 _SF 1 5_STS_TRANS I TI 0N_FLG_P 

= CTRLJ4J>RDLSF15.STS_TRANSITI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

BOX J: 

CTRL_WOsndJRDlJF15JIAJINJ«0T_yALIDJLG = True 
GoTo BOXJE 

B0X_7: 

CTRLJ'4_SF15_INGJLG = True 
GoTo BOXJE 

B0X_E: 
End Sub 

Rem *** PRCEND 
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*W0 hH^aogjJ (1/3) 



Option Explicit 

Rem ***** MUigB *************************************************** 
Rem ***:x— tffc : 

Rem *MyXfA« : 

Rem ***MU^ hH8& ******** 

Rem ***W*!#^f : 

Rem ***m§®Bi] : VB 

Rem mfig^y-yg > : 66 

Rem hSgiJ : W02 

Rem U*ni>y hl&ftl? : ff@*30Ofc28@J*29OS02@ 
Rem #**«ii*^-*X^$B: @%STS6 TO* : * : 

Rem #**ffeBfc^E 0&### : @*TIME@ 

Rem ***** fUsSSB *************************************************** 

Rem #DEFPUB ** rtUy hmmmftmtSL ^-©^0*290*020 

Rem * Ifc&^lxy htg^m^ 

Private CTR_NEXT _PALLET_I D JIEW As String 
Rem PUB4N2 W02 (\ijm®fc<DmM) 

Rem **** wo2 vtm^itm&nimm**** 

Rem PUB5C2 fg5&«$ *r®ikM&{tMi$.<DmM 

Rem PUB5Y2 m$m.m 1ft®®i®t%i<tm®<DMM 

Rem PUB5B2 msm® til*®ytm$t{tm®<DMm 

Rem PUB6F2 mtmm® Trf&7 7?<DMm 

Rem I2^[H]^^ft:m^li» 

Rem #defend ** wj vmmmm$L **o 

Rem PUBIN2 W02 «2«»16jA flMt 

Rem * fr-f >=fy&7{ 

Public Gyou as Integer 
Rem * mi >T7^X 

Public Retu as Integer 
Rem * fa&WjjO>& 

Public UtLCnt as Integer 
Rem * KmcDtiV>& 

Public Soto_Cnt as Integer 
Rem * faM(D$k±m 

Public UtiJIax as Integer 

Rem * nmom±m 

Public SotoJIax as Integer 
Rem #DEFFlN 

Rem #DEFPRV ** W02/SUy h-n&ffitt Mtt ©%28§_«X29O%028- 

Rem PRV2T2 tt2«ttttjR«tt0!)IMk 

Rem PRV7R2 «7««a«S7 7 4/««®8i* 

Rem ***** ^2 h)VfoV-?m$.<omm ***** 

Rem PRV2W2 ft2MttV»MftfraiMt 

Rem PRV4W2 NMMI»v # »MmMIM* 

Rem SDBOfiBttflft (l^l/— ^>mm 

Rem 

Rem 

Rem *— PUBKU &<om 

Private CNSJfOTJCUILString As String 
Private CNSJWTJOJflJnteger As Integer 
Private CNS_NOTJOJH_Boolean As Boolean 
Private CNSJJOTJOJlLLong As Long 
Private CNS_N0T_KUQ ingle As Single 
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*W0 HWftcoai (2/3) 

Privale CNS_NOTJUJHJ)ouble As Double 
Private CNSJWTJCUHJ'ariant As Variant 
Private CNSJWT_KUH_Currency As Currency 
Private CNS_NOT_KWLByle As Byte 
Private CNSJJOTJOJHJJate As Date 

Rem #DEFEND ** ff02/1Wy hHRflHtt ttD 

* W02 bm& (<3>2) * 

********************************* 

Rem PaLID 

Public Sub @%PALID@0 
MAINJ5TART: 

' < #8IF*>J7 > ' 

Rem PRYLG 

CTRL_W@X30@_@X28O»29@_STS^TRANSITI0NJFLG = 0 

Rem PRVLG 

CTRLJ@ai30O^28OX29@_STS_TRANSITI0N_FLG^P = 0 

Rem PRVLG 

CTRL_W§X30§^«%28#_eX298.STS_IRANSITlONJ ? LCJP = 0 

Rem PRVLG 

CTRLJ"«X30§_«28MX298_I2.STSJRANSITION_FLG = 0 

' < L2m2ffi«©^»J7 > ' 

Rem PAL2T2 

' < nmm^LCD^ ur > ' 

Rem PAL6F2 

' — < umm®Lv>f)7 > — ' 

Rem PAL7F2 

Rem *VecID < \*fPfl3K*I2 (D&Mfrfr > ' 

Rem CALLVA 

' < mmfr*><DMOI&& > ' 

B03LWP AL I D0 JRERUN J>0 INT: 

' — < ttm^t?<D&m > — r 

Rem PRVLG 

CTRL_W@»30O3528@_@»29^STS„TRANSl TION_FLG_PP _ 

Rem PRVLG 

= CTRL_ff@X30@_@SK28O^29OTS_TRANSITI0NJLG_P 
^E— JilJtHl 

Rem PRVLG 

CTRL_W@X 300% 2 8@ J3*2 9§_STS_TRANS 1 T 1 ON_FLG_P _ 

Rem PRVLG 

= CTRL JW30«_§X28§_«%29« JTS.TRANS I T I ONJLG 

Rem *VeclD < mmSM 12 <DgB®#<£ > ' 

Rem CALLVL 

* — < Hfiw^ m®<>fft*m) > — ■ 

Rem PRVLG 

If CTRL3@SK30O«28O*29^STS^TRANSITI0NJLG^P O _ 

Rem PRVLG 

CTRL_W«3S3OOX28OX290„STS - TRANSITIONJLG_PP Then 
GoTo B0X_@*PALIDOERUN_P0INT End If 

Rem *veciD < m^m^mnzomm^ > ' 

Rem CALLVR 

Rem »VecID < gggfgggjytt PEBftfr ) ' 
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*W0 2 nVy hM%LQ>W (3/3) 

Rem CALLVR * 

MAINJND: 

End Sub 

' < V02AUy hMgci&T > ' 

Rem * nsmmmm {Set of Vector) mmmmmmmsmmmmm 
Rem VECPRC ****** 12, L2. R2C, R2£>@Ed! 
Rem PRCEND 

Rem * ##$m#########ff02/\ # uy h &t> o mm mmmmmmmmmnn 
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♦ W0 3/^y hM&£>m (1/2) 

Option Explicit 

Ren ***** J3.ai85 *************************************************** 

Ren ***:x— ir*S : 

Rem ***vXttA£ : 

Ren ***/XVv Miqgc ******** 

Rem ***^SB#^' : 

Rem mwtmmm vb 

Ren ♦♦♦aii'^T— ✓a > : 66 
Ren ***/S U-y hSlBJ : V03 

Ren U*rtl>y hmi=r : U% 30 8_§X28§_§*2 98,6X026 

Ron maiS^y-^Xteffi : GXSTS© CO' : 557/ ' : *5£) 

Ren ***£tfc*£E UVZto® : 6XTIMEQ 

Ren ***** flJfiJB *************************************************** 

Ren SDEFPUfl *» ^U«v hHE*flra&8U£ P8&-OX28M* 290*020 

Ren * W&rtVy M§^?fi^ 

Private CTR_NEXTJ > AILET_1DJIEW As String 

Ren PUB4N3 TO fiHJft^ffitt D24 

R eD **** W03 ttfig&{fcm*£<Z>$S&**** 

Rem PUB5C3 KSttlHiAtt ^iBlttffiSfkmMOiBft 

Ren PUB5Y3 £5tttifiUg 0nEI^S8S{tm^©@m 

Rem PUB5B3 1S5*MMJft tt*ls]ttffi«{|:mift0tt& 

Rem PUB6F3 &6&&&& 026^3*7 5 ^(DfG& 

Rem SDEFEND ** 'il>y hmim&m® ttD 

Rem PUBIN3 103 ftSttttttA 

R em ♦ ff< >"ry&X 

Public Gyou as Integer 
Rem * Jl-f >r f y^7i 

Public Retu as integer 
Ren * lft®&<DtiO>9 

Public MLCnl as Integer 
Rem * 9\-ffl<7>1jO><9 

Public Solo_Cnl as Integer 
Reni ♦ ft®<D&iz& 

Public UUJIax as Integer 

Ren * WHHDBijzm 

Public Sotojfax as Integer 

Ren SDEFPRV ** mnUv MMcfett §*28M*29MXQ2§ 

Rem prv2T3 m&&®&m®<Dm& 

Rem pry7R3 mmtom&v? 

Ren ***** hJH#39— ^«£<3|g&***** 

Rem PRV2W3 82*^'9tMff?£Mfc 

Rem PRV4W3 flMM*r MAMM* 

Rem SUBO>$H*£|g& ^>l&tt> 
Ren 

Rem SEttEE* 

Rem * PUBKU ^(OfiS 

Private CNSJIOTJUJiLString As String 

Private CNS_N0TJvUHJnteger As Integer 

Private CNS.NOTJvUHJoolean As Boolean 

Private CHSJJOTJOBUong As Long 

Private CNSJWTJKWLS Ingle As Single 

Private CNSJJOT_Kl)Oouble As Double 

Private CNSJlOTJCUIlVa riant As Variant 
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*WQ 3/SU>;/ hBggCCPgj (2/2) 

Private CNSJWT_KUHJ)urrency As Currency 
Private CNS_NOT_KUH_Byle As Byte 
Private CNSJiOT_KUH_Dale As Date 

Rem ^DEFEND ** mni-y hm%km®L mo 

************ ******* ************** 

* U03 rtUy bm$k (<I>3) * 
********************************* 

Rem PaLID 

Public Sub @£PALID@() 
MA1NJ5TART: 

' < ttffi«ffcF2Mj7 > ' 

Rem PRYLG 

CTRLJ^30O«28O»29OTS_TRANSITI0NJLG = 0 

Rem PRVLG 

CTRLJ@9530O^28@^29@JTS^TRANStTI0N_FLG_P = 0 
Rem PRVLG . 

CTRLJ^30O»28@_@*29@_STS_TRANSITI0N_FLG_PP = 0 

' < L31g2St«(D*'J7 > ' 

Rem PAL2T3 

' < ummmwjT > — • 

Rem PAL6F3 

* < immmcD? ut > — ' 

Rem PAL7F3 

' < m&fr±(Dmtm& > ' 

BOJL08PAL I D§ JtERUNJO I NT : 

' < ttttxtupttjaa > ' 

Rem PRVLG 

CTRL _W@%30O*28@_@*29@_STS JTRANSITI ON _FLG _PP _ 

Rem PRVLG 

= CTRLJ@»30O^28O»29OTS.TRANSITI0N_FLGJ 

Rem PRVLG 

CTRL3@5530O^28O^29@^.STSJRANSITI0N_FLG - .P _ 

Rem PRVLG 

= CTRL_W@SK30O*28OSI529e_STS„TRANSITI0N_FLG 

1 < LZ(Dmm&% > ' 

Rem CALLVL 

• < mmm mmotm*m > — r 

Rem PRVLG 

If CTRL_W@»30OX28@_@«29@_STS^TRANSITI0N_FLG_P O _ 

Rem PRVLG 

CTRLJ@X30O*28@_@«29@„STS_TRANSITI0N_FLG_PP Then 
GoTo B03L«XPALID§JRBR0NJP0INT End If 

Rem *VecID < &Bff?filff5!gR3RGBfl>^ > ' 

Rem CALLVR 
MAIN.END: 
End Sub 

* < ^03/^ u v vmrnrr > • 

Rem * mmmmm {Set of Vector) ##################################### 
Rem VECPRC ****** L3, R3R<2@E§1 
Rem PRCEND 

Rem ♦ SS#####S3#3##SSff03/t V v Y &t> fp ##################################### 
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*W0 Hg»<Pg (1/3) 



Option Explicit 

Rem ***** Jlffigf *************************************************** 
Rem ***a— if€ : 

Rem myXrA^ : 

Rem ***/1Uy hUSgc ******** 

Rem ***@S## : 

Rem ***a-g§@SiJ : VB 

Rem mfg^T-yg > : 66 

Rem %%%>Wv hSS»J : W04 

Rem m/t\sy btt&fr ; W0MO§_«X28a_0X29§_§%O2§ 

Rem #**®!jtx-r- ^XMf« : @*STS@ CO' : * " : **) 

Rem S**fe$^M Hl^»» : @XTIME@ 

Rem ***** SM^gB *************************************************** 

Rem #DEFPUB ** Vmm$km$L Hte^28§_i%29t_tX02§ 

Rem * grift/I hfg^®^ 

Private CTR_NEXT_PALLET_I D JIEW As String 

Rem PUB4N4 W04 K4&*MR* (ttftftaftofMU 

Rem PUB1N4 W04 *2«»ttjA «* 

Rem PUB4B4 wo4 mmm&mm 

Rem **** wo4 vtm&itmm<nm&**** 

Rem PUB5C4 fg5&#5fcl« ^II!ttffi£fl:fHtt<?>lf* 

Rem PUB5Y4 SgS&i&tll^ MBttttXftfettOflM 

Rem PUB5B4 W5tt»«tt ffi * ®VtM&fcm®<DmHk 

Rem PUB6F4 »6«MM«t TtiLiLV 9 if toMM 

Rem 04^l«Itt!i2gfl:SB«Offim 

Rem ^DEFEND ** hmmm&im®. £D — 



Rem PUB4N3 W04 Sl&ttMft (103 «4ft»«»t) 

' *********BW«f^ffl «7-^««********** 

Rem * fj-f >5 i ^^X 

Public Gyou as Integer 

Rem * yij-f >f^^X 

Public Retu as Integer 

Rem * f*jffltf);fr^>^ 

Public Uti_Cnt as Integer 

Rem * tVM<D*)iy>9 

Public Soto_Cnt as Integer 

R em * fa$wm±m 

Public Uti_Max as Integer 

Rem * ftm<Dm±m 

Public SotoJIax as Integer 
Rem #DEFFIN 

' *********************** mm **** mm 

Rem 3DEFPRV ** ff04/1Uy h^SS^ 0*280*290*020- 

Rem PRV2T4 *2tt»ttj*«*0a* 

Rem PRV7R4 t&m%>¥ftg7 7 >fmi&<DMm 

Rem ***** ^?hW7-^<tt©i**M** 

Rem PRV2W4 «2ttftK mftfmitt 

Rem prv4W4 imbi&v nmftmm®. 

Rem SUB4)«tta% (+h^>/l/-^>Wi) 

Rem zmrnm 

Rem §E?fg*£ 

Rem * PUBKU &<DM 

Private CNSJWQUILString As String 
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*W0 hWftOg (2/3) 

Private CNSJiOTJOJHJnteger As Integer 
Private CNSJIOTJOJOoolean As Boolean 
Private CNSJWTJCUILLong As Long 
Private CNSJWTJvUH_S ingle As Single 
Private CNSJJOTJiUHJtouble As Double 
Private CNSJTOTJMLYa riant As Variant 
Private CNSJMTJttJJLCurrency As Currency 
Private CNSJfOTJOJH_Byte As Byte 
Private CNS_NOT_KUH_Date As Date 

Rem #DEFEND ** ff04/tUy hMR«tt 

Rem * mmnmmmmmmnmmmmmmmmmmmnmm 

********************************* 

* W04 hUSgt (<D4) * 

********************************* 

Rem PaLID 

Public Sub @KPALID@0 
MA1N.START: 

' < «MftF?U7 > ' 

Rem PRVLG 

CTRLJ«X30§JX28§_W29«JTS - TRANSIT10NJ f LG = 0 

Rem PRVLG 

CTRLJ§X30§JX28MX29«_STS_TRANSITIONJ ? LG L P = 0 

Rem PRVLG 

CTRL_ff@^30O*28OX29@ - .STS^TRANSITI0NJLG_PP = 0 

Rem PRVLG 

CTRL_W@»30OX28§JJl529@J4«STSJRANSITI0N_FLG = 0 

' < L4»2«*(to>iMJ7 > ' 

Rem PAL2T4 

* < MUK4Mtt<2)£U7 > ' 

Rem PAL4M4 

' < hmmmtot? u 7 > • 

Rem PAL6F4 

' < L4*7««O^U7 > ' 

Rem PAL7F4 

' < Kfid>&0>KOjBA > ' 

BQ3LMEP AL 1 DOERUN.P0 1 NT : 

' < ttffi^fLFOfflg > ' 

Rem PRVLG 

CTRL_W@«30O5528@_@^29@_STS^TRANSIT10N_FLG_PP _ 

Rem PRVLG 

= CTRL .jmm L«2 8«_«X29§_STS_TRANS I T I OHJLCLP 

Rem PRVLG 

CTRLJi§X308„§X28O»29§_STS_TRANSITI0NJLGJ _ 

Rem PRVLG 

= CTRL J«X30« JX28«_©X29© JTS JRANS I TI 0N_FLG 

• < h)MDmm&^ > — ' 

1 < Liommtiifi > • 

Rem CALLVL 

' < «BW* (MHOIII^B) > ' 

Rem PRVLG 

I f CTRL JOT30§.iX28e.9X29§,STS.TBANSITI0W JLG J O _ 
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*W0 4^1/7hW^)I (3/3) 

Rem PRVLG 

CTRLJ'@%30O«28O%29@^STS^TRANSITI0NJLG_PP Then 
GoTo BOX J35PALI DfLRERUlLPOINT 

End If 

Rem *VecID < ffl*fffflas!l04 (WRITEM«ffla) EH** > ' 

Rem CALLYA 

Rem *vecin < ms&^msmimm^ > ' 

Rem CALLVR 

Rem *VeclD < HWf^«!l*S4EB** > ' 

Rem CALLVS 

MA1N.END: 
End Sub 

* < W04^U«> b^gcS&T > ' 

Rem * {Set of Vector} ###############»##################### 

Rem VECPRC ****** L4.04, R4. S4C0E^ 

Rem PRCEND 

Rem * smnnmmnw* v y b&t>o mmmmmmmmnsnnmm 
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lOption Explicit 

Rem tmmmmmmmmmmmnnmmmmmmmnmn 

Rem ***zl— +f& : 
Rem myXfAS : 

Rem ***/^y b®ggfI3$: ******** (PRD 

Rem ***^S## : 

Rem ***^ag@S»J : VB " 

Rem mt^7-va > : 66 

Rem #**Al-v hffiOTf&^gi] 1 ? : @*PRD1D@_@*PRDNAME@ 
Rem #**®JiSX7 L -^XlW$S : @%STS8 CO* : ^T, " ' : 
Rem #**£ric¥M Bf*$#e> : @%TIME@ 

Rem mmmnmmmnnmummmmmnmmmmnmm 

|Rem ********* /tUy KSIS^Ifcm^c ********* 
IType RouteControlTableType 



'it* 

' PRDtSfBTBLO^D v % ID 
' PRDt?t$gTBLcDRow 
'PRDtg$BTBL0)Col 
'PRD1t$gTBLOT03O^U^ KID 
'SFID, ^W-y MDrtTcBS* 
' R3C, R3D, R3MGH»tttia> 
* PRD«$STBLOMgSSSiJ^^/t U ? h ID& 

' tt»«9JR3R<D»*, PRD««<DR3R<0/il^ MD*»* 
1 &B«SiJR3M<Z>«fi\ PRD««<OR3M0)^U^ MDSK* 
'«ttfflgiJR3DO»ft. PRD««©R3D<0/^Wy MD*RS 
' «»«9JR3C<D»£. PRDtif $BOR3C<£>/1 l/^h ID&Rff 



No As Integer 
SFID As String 
Row As Integer 
Col As Integer 
Pal ID As String 
SubNo As Integer 
RouteCode As String 
NextPallets As Variant 
NPIDJMR As String 
NPIDJ3M As String 
NP1DJ3D As String 
NPIDJ3C As String 
SendedRoutelD As String 

SendedR3CJK)3IDU0) As Siring ' «UBR3C*«^<DfiK«M» (W03/t V y MM 
SendedR3C_WQ4ID(lO) As String , fPfflR3C««^O«KK«IH»W04^U'u/ MD) 
|End Type 

Public RCT(IOOOO) As RouteControlTableType 

Private InputRCT As String 

Private ForSplit 0 As String 

Private ForSplit2 0 As String 

Private Ret Index As Integer 

Private Rctlndexl As Integer 

Private Rctlndex2 As Integer 

Private Rctlndex3 As Integer 

Private Rcllndex4 As Integer 

Private Rctlndex5 As Integer 

Private Rctlndex6 As Integer 

Private Rctlndex7 As Integer 

Private Rctlndex8 As Integer 

Private Rctlndex9 As Integer 

Private RctlndexlO As Integer 

Private Rctlndexl I As Integer 

Private Ret IndexI2 As Integer 

Private Rctlndexl3 As Integer 

Private Rctlndexl4 As Integer 

Private RctlndexlS As Integer 

Private Rctlndexl6 As Integer 

Private Rctlndexl7 As Integer 

Private Rctlndexl8 As Integer 
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Private Rctlndexl9 As Integer 
Private Rctlndex20 As Integer 
Private PailetlDJIow As String 

SMH»*tm^-^Ma«* &7 

Rem * fT-f>T7i7^ 

Public Gyou as Integer 
Rem * m>?^^ 

Public Relu as Integer 

R em * fom<Dti<y>t> 

Public UlLCnt as Integer 

Rem * *UHW>*^>* 

Public Soto_Cnt as Integer 

Rem * fam<D*k±m 

Public Utijlax as Integer 

Rem * ftmcom±m 

Public SotoJIax as Integer 
Rem * m^nVv htii^fUM 

Public CTRJIEXT_PALLET_ID - NE% As String 
Rem * \WM.nVv 

Public CTR_JEXTJ>ALLETJDJ)LD As String 
Rem m4m^L<DmM 

Rem &emm<Dmm 
Rem ^mmmcomm 
Rem ^®wmmm<z>MM 
Rem MmwmmmomM 

Rem m*\B\*kWMm<DMm 
Rem ^EU2ttttMtt0>tUk 
Rem ^©04*fcJgm*£<Z>gIjj| 

Rem #PRDDEF_PUB *** PRD^«jSI*£g& — PrdID = @S01@ PrdName = @S02@ 
Rem *PRDDEF_PRV *** PRD#^ii®^gB 

Rem #DEFPUB ** SP»J&«««ffi Sf ID = Milt SfName = @%12@ 

Rem DEFPUB ** SF»J£tMffittflS JRQ&ft 
Rem DEFEND 

Rem nv v hIflNft^>7'-9iRttCDlJt 

Rem Ki'yhmi&Mmvwmmmnk {^)v—^>m<D 

Rem 5\16&W@L 
Rem 

Rem * JSSSW-r— 7)1 (PRD lfllc^tri ^ItlTr*) 

c p r Dig m^r- *>m§-$-z>) 

Rem *PUBKU &<Dm 

Private CNSJJOT.KUH.St ring As String 
Private CNSJWTJOJHJnteger As Integer 
Private CNSJWTJCUH_Boolean As Boolean 
Private CNSJWTJOJILLong As Long 
Private CNSJJOTJOJILS ingle As Single 
Private CNSJWTJKUHJDouble As Double 
Private CHSJiOTJOILYariant As Variant 
Private CNSJfOTJOJH_Currency As Currency 
Private CNSJWTJttJHJyte As Byte 
Private CNSJWTJCUH__Date As Date 

********************************* 

' * fWhBMMk (<*>) * 

' ********************************* 
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Rem #@K02@ 
Rem * 



Public Sub ©FormlDOormjLoadO 
Call Tenselnit 

CTRJJEXTJPALLETJDJIEW = '@EvenlProcII)@2' 
Call TO 
End Sub 

Rem * 



Public Sub @FonnIDOEventProcID®(@Para@) 
W2J»aftID§JPrdId.eSfIDiJPara® = @Para@ 
CTRJ*EXTJ>ALLETJDJO = '@EventProclD82' 
Call TO 
End Sub 

Rem *-********* $o nv y hMt&Mgt ******************************************* 

Public Sub TOO 

On Error GoTo OnErrorBox 

BOOETUBU: ' JKDttAA 

Rem PUB404 

'* — <>-X^A ttTTOt > — ' 

Rem PUB6I2 

Rem PUB604 

Rem * mmWM 

If CTRJ*EXTJ>ALLETJD_NEW = " Then 

Call SelectNextPallet 
Else 

CTR_NEXT_PALLET_ID_OLD = CTR_NEXTJ>ALLET_IDje ' IB*/* V y h*wtt**-*r*/1 V y htt*MKtt 
CTR_NEXTJ>ALLETJD_NEW = " 'Hf&nXsy hiSfi«©***U7 

End If 

Rem * /n°U'v hgiai {B^nvy hmmmmzms) 

Call RunPallets 

Rem * mVW£Mzm%> 

Go To B0X_RETURN_A 

Rem * *$7«ui 

B0X_END: 

END 
OnErrorBox: 

END 
End Sub 

Rem »** PRCEND 

' *****fl$#L*I*********m*********** 
Sub Tenselnit 0 

' — < m3&mw^-7)i><Dtt& > — ■ 



Call MakeRuteControlTable 

• — < n v y bmmntkinm^mmt > — - 

Rem * /^Uy ha«M»c#flpaUTli*««&^U7 

CNSJJ0TJCU1LS t r i ng = ChrW (0) ' As S t r i ng 

CNSJJOTJKUHJnteger = -32768 'As Integer 

CNSJIOTJOIOoolean = False 'As Boolean 

CNSJTOTJOJBULong = -2l47483648# 'As Long 

CNSJWJOJILS ingle = -3. 402823E+38 'As Single 

CNSJWTJOJHJtouble = -4. 94065645841247E-324 'As Double 
CNSJOT_KUHJ ; ariant = -4. 9406564584 1247E-324 'As Variant 
CNSJTOTJCOILCurrency = -922337203685477# 'As Currency 
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CNSJWTJttlHJyle = 255 ' As Byte 

CNS_NOTJ(UHJ)ale = 999999 'As Date 

Reffl * mmmh^Uy b]d$:±y h 

' Call SetFirstPalletId 
End Sub 

Sub SelectNextPal let 0 



Rctlndexl = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
RclIndexS = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 



i R3C, R3D, R3M£>£R3E^ X y Z m -f > * 
gSFtf>m«=$fcsI & eSFOffijB^R3C=S$fi^$^-rS7p-r 
SR3C<&56?BSrR£#^>b 
i PRDO^T OSffiCft 4> ^J7ffl*»)>^ 
&R3D^4?<>^ 
@R3Ct&^#<>^ 

SR3MJf3K#>f >* 

Rctindex9 = o ' &s?izftm^z&TmK*mm-$-zxi 

RctlndexlO = 0 ' @R3M«3j*#-f 
Ret Index 11 = 0 ' gR3C}§;^}W 
Rctlndexl2 = 0 ' £R3CfgiK7iW 

0 r iSF^±R3C^®^CHK^*^>^ 
0 ' #1R3C<Z> U a - K £t&5rc"T > * 

0 'RctIndexl8:BR3M0U3-K<D, fl*«R3C« : 
Rctlndexl9 = 0 ' A6R3CO U 3— HifB^-rSsfi-f 
Rctlndex20 =0 



>4 



Rctlndexl3 
Rctlndexl4 
RctlndexlS 
Ret Index 16 
Rctlndexl7 
Rctlndexl8 



<Sft*fT*0)/1U«/ HD&«»>- 



PailetlD.Now = CTR_NEXTJ > ALLET_I D_0LD 



■<aR3R**«?> 



Do Until RCT (Ret Index I). No < 1 

If Mid (RCT (Rctlndexl). Pal ID. 1, Len (RCT (Rctlndexl). Pal ID) - 
= Mid (PalIetID_Now. 1, Len(PalletID_Now) - 1) 
And RCT (Rctlndexl). RouteCode = *R3R' Then 

' COPS, SR3Rrt<#0 ' 

If RCT (Rctlndexl). SendedRoutelD O ' V Then 

' d §R3R7fcf£$r?&£ ' 

' TR3RJ <3>P-ID£#<J>P-ID ^X'J TlZ±y h- 

CTR.NEXTJALLET.IDJLD = RCT (Rctlndexl) . NPI03R 

CTRJfEXTJ>ALLET_ID_NEW = " 

' ®&&mwm<D s nmmm&wm ' 

RCT (Rctlndexl). SendedRoutelD = * 1" 

-»»B««ia»7 



i) _ 



Rctlndexl = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
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Rctlndex8~=~0 
Rcllndex9 = 0 
Ret IndexlO = 0 
Rcllndexll = 0 
Rcllndexl2 = 0 
RctIndexI3 = 0 
Rctlndexl4 = 0 
Rctlndexl5 = 0 
Rctlndexl6 = 0 
Rcllndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 = 0 
Exit Sub 
Else 

Z<om, eR3R5B«R-e**- 



GoTo B0X_IO.TRANSITION.CHK 
End If 
End If 

Rctlndexl = Rctlndexl + I 
Loop 

' I/OttffiSMfc;* 0 ? 
]BOX_IO_TRANSITION_CHK: 
IRem PRVLG 

' If Pallet IDJIow = @K100@ And (CTRL_W@*30M*28@ @*29®_I2_STS_TRANSIT10N_FLG O 0 Or 

CTRL.W^3005K28®JX29§_04JTS„TRANS1TIONJLG O 0) then GoTo BOX.IO TRANSITIONS 

GoTo B0X.I0_TRANSITI0N.0FF 'tt»fcfl:ftLfcS, BOX 10 TRANSITION OFF^ifttf 
[B0X_I0_TRANSITI0N_0N: " " 

' Z<Dm. I/Ottffi*ffc*t> 

' ®^?B r R3Rj <I>P-ID£*<J>P~ID ^xU7l:t7 h ' 

CTR.NEXT_PALLET_ID_OLD = RCT (Rctlndexl) . NP ID R3R 
CTR..NEXT _P ALLET_I D_NEW = " 

' ®&&Mmi%L<Dmw5£mtm<Dwm ' 

RCT (Rctlndexl). SendedRoutelD = ' I" 



Rctlndexl = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 
Rctlndex9 = 0 
Ret IndexlO = 0 
Rctlndexl 1 = 0 
Rctlndexl2 = 0 
RctIndexI3 = 0 
RctlndexH = 0 
RctlndexlS = 0 
Rctlndexl6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
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Rctlndex20 = 0 
Exit Sub 
B0XJ0_JRANSITI0NJ)FF: 

'£SF(CR3C, R3D» R3M<D^rtt^##fc^£^ ? 
Do Until RCT(Rctlndex2).No < 1 

If Mid(RCT(RctIndex2).PalID, 1. Len (RCT (Rcllndex2) . Pal ID) - 1) _ 
= Mid (Pal letID_Now. 1, Len (Pal letlOow) - J) 
And (RCT(RctIndex2).RouteCode = "R3C* 
Or RCT(RclIndex2).RouteCodc = "R3D* 
Or RCT (Ret Index2). Rout eCode = ' R3Iir ) Then 

' CORK mm or SR3C or SR3D^O ' 

GoTo BOX_SELECTJ)DM 
End If 

Rctlndex2 = Rctlndex2 + 1 
Loop 

' Ccom, SR3M or SR3C or SR3D^L ' 

' ®fg$B TR3RJ <&P-ID£*<I>P-ID jS^X'JTCt^h 



CTR_NEXT_PALLETJD_OLD « RCT (Ret Index 1) . NPID.R3R 
CTR_NEXT_P ALLET.J D_NEW = " 

' ©&&Mfflni<D&nmmm(DW%j ' 

RCT(RctIndexl).SendedRouteID = T 

* BKlKAltlfT 

Rctlndexl = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
Rctlndex5 = 0 
RctlndexB = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 
Rctlndex9 = 0 
RctlndexlO = 0 
Rctlndexll = 0 
Rctlndexl2 = 0 
Rctlndexl3 = 0 
Rctlndexl4 = 0 
Rctlndexla = 0 
RctlndexlB = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 = 0 
Exit Sub 

BOX_SELECT_CDM: ' SR3M or SR3C or Sm&miR-t&Wkm 

' m?o&M=9cm & esF<^)^R3c=5e$sa? 

'Rctlndex3: &SFS>J*g=£SI & &S?0&m<Dm=Xnm*»1tr*tf'(>* 
'Rctlndex4:R3C<A58?S£rS£:*j't7> h 

'RctlndexS: Sftifffi^— Zf)V<D * S PRDO £T <D RffiSB A (O 2 1 ) T £ MW "T £ # -f > 
Do Until RCT(Rctlndex3).No < 1 

If Mid(RCT(RctIndex3).PalID. 1. Len (RCT (Rctlndex3). PallD) - 1) _ 
= Mid(PalletlDJJow, 1. Len (PalletID_Now) - 1) _ 
And RCT(Rctlndex3). Col = 1 _ 
And RCT(RctIndex3). Row = 1 _ 
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And RCT (Re Undex3). RouteCode = "R3C _ 
And RCT(RctIndex3). SendedRoutelD = * Y Then 

' Z.(Dm, iSF<Z)J$S=toi & gSFtf>tt:Etf>R3C=5e$S£r- 

Rctlndex4 = Rcllndex4 + 1 

If Rcllndex4 = RCT (Ret Jndex3) . NexlPal lets Then 

'~z<Dm. esF©fl?«!=ftiH & esF(D^R3c=«faap— ' 

Do Until RCT(RctIndex5).No < 1 

RCT (RctlndexS). SendedRoutelD = " 
RctlndexS = RctlndexS + 1 
Loop 
Exit Do 
End If 
End If 

Rctlndex3 = Rctlndex3 + 1 
Loop 



-<eR3D*<* U & SR3D*^?B ? >~ 



Rctlndex6 : SR3Dt&5n#-f >^ 
Rctlndex7 : SR3C*&^^-f 
Rctlndex8 : iR31W&5K#-f 
Do Until RCT(RctIndex6).No < 1 

If Mid (RCT (Ret I ndex6). Pal ID, 1, Len (RCT (Ret lndex6). PallD) - 1) _ 

= Mid (Pal letID__Now. 1, Len (Pa 1 1 e t ID_Now) - 1) 

And RCT(RctIndex6). RouteCode = 'R3D' 

And RCT (Rctlndex6). SendedRoutelD O "I* Then 

• Z<om, SR3Drt<WO&&R3D*58*BTS£ ' 

' (D5g?SR3DcI>P-ID^^OP-lD XUT&fey h ' 

CTR_NEXTJ>ALLETJD_OLD = RCTOclIndexM. NPIDJtSD 
CTRJ1EXT JALLET.I D_NEW = 99 

■®S»*J»TBL©eR3D««JB»C!)§B«f * 



RCT (Rctlndex6). SendedRoutelD = * |" 

WTBL \Z g SFf CR3C# W 5 ? 



Rctlndex7 = 0 
Do Until RCT(RctIndex7).No < 1 

If Mid (RCT (Rctlndex7). PallD. 1, Len (RCT (Ret Index7) . Pal ID) - 1) 

= Mid(PalletIDJtow, 1, Len (PalletlDJlow) - 1) 

And RCT (Rctlndex7). RouteCode = 'R3C* Then 

' Z(Dm. SR3C^ 0 A'U7 h»l^\ 0 ' 

Rctlndexl = 0 

Rctlndex2 = 0 

Rctlndex3 = 0 

Rctlndex4 = 0 

Rctlndex5 = 0 

Rctlndex6 = 0 

Rctlndex7 = 0 

Rctlndex8 = 0 

Rctlndex9 = 0 

RctlndexlO = 0 

Rctlndexll = 0 

Rctlndexl2 = 0 

Rctlndexl3 = 0 

Rctlndexl4 = 0 
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Ret Index 15 = 0 — — _~_ 

Ret Indexl6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 = 0 
Exit Sub 
End If 

Rctlndex7 = Rcllndex7 + 1 
Loop 

z <om, mtsmmm \z g sf \zkk&w& l & v 
m&mmiKuz g sf k:rsn^«« * ? ' 

Rcllndex8 = 0 

Do Until RCTffictlndexW.No < 1 

If Mid(RCT(RctIndex8).PalID, 1. Len{RCT(RctIndex8). Pal ID) - 1) _ 
= Mid(PalletIDJ!ow, 1, Len (Pal letID_Now) - 1) 
And RCT(RctIndex8).RouteCode = 'R3N* Then 







Ret 


Indexl = 


0 


Ret 


Index2 = 


0 


Ret 


Index3 = 


0 


Ret 


Index4 = 


0 


Ret 


IndexS = 


0 


Ret 


Index6 = 


0 


Ret 


Index7 = 


0 


Ret 


Index8 = 


0 


Ret 


Index9 = 


0 


Ret 


IndexlO 


= 0 


Ret 


Indexl 1 


= 0 


Ret 


Indexl2 


= 0 


Ret 


Indexl3 


= 0 


Ret 


IndexH 


= 0 


Ret 


Indexlb 


= 0 


Ret 


Indexl6 


= 0 


Ret 


IndexI7 


= 0 


Ret 


Indexl8 


= 0 


Ret 


Indexl9 


= 0 


Ret 


Index20 


= 0 


Exi 


t Sub 





End If 
Rctlndex8 = Rctlndex8 
Loop 



+ I 



com. SR3N#fffi- 



RCT(RctIndex6). SendedRoutelD = 



m m 



SSF©R3D*^fflt**±T<OR3C©aBM»TBLa>5E«gEe«:*> 

'RctIndex6:gR3D4)U:3 — F^f^-TStf-f 

' Re t Index9 : gR3Dtf> FtfX f^fflR3C««*fi*Tr* # -f > * 

'RclIndexl7:ftfiR3CcDH3 — K£tg^-r-5#< 

Rctlndex9 = 0 

Do Until Rctlndex9 = 10 

If RCT(RctIndex6). SendedR3Cj:03ID(RctIndex9) = Then Exit Do 
Rcllndexl7 = 0 

Do Until RCT (Ret Index 17). No < I 
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If RCT(RclIndcxI7).PaMD = RCT (Rc 1 1 ndex6) . SendcdR3CJ'03]D(Rctlndex9) 
And RCT(Rctindexl7).RouteCode * "R3C „ 

And RCT(Rctindexl7).NPID_R3C = RCT (Rctlndex6). SendedR3CJ04lD(RclIndcx9) Then 

RCT (RctIndexI7L SendedRoulelD = ' V 
End If 

Rcllndexl7 = Rctlndexl7 + 1 

Loop 

Rctlndex9 s Rcllndcx9 + 1 
Loop 

' M*MH*Hmtttum*mm**t*tH*tt ******************************* 

' y&smm.^ * 

Rctlndexl ■ 0 
Rcllndex2 = 0 
Rcllndex3 = 0 
Rcllndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 » 0 
Rctlndex7 = 0 
Bcllndex8 = 0 
Rcllndex9 - 0 
RclIndexlO = 0 
Rctlndexll = 0 
RcUndex)2 = 0 
Ret Indexl3 = 0 
RctlndexM = 0 
Rctlndexl5 * 0 
Rctlndexl6 = 0 
RcllndexH « 0 
Ret Index 18 = 0 
Rctlndexl9 «= 0 
Rcllndex20 * 0 
Exit Sub 

End If 

Rctlndex6 = RctlndexB 4 1 
Loop 

'Z<D££. R3D<D5S$g&<rzrtafeUa>6. BR3Mrt<#D &SR3M*f£$ai£? O^S^itir. 



<SR3M^W D & BR3M*5B$fi ? > 



' RclIndexlO: g R3M|gii«K -f > * 

'Rctlndexll : mZZfenW-f >* 

Do Until RCT (RclIndexlO). No < 1 

If Mid (RCT (RctlndexlO). PallD. l, Len (RCT (RclIndexlO} . Pal ID) - 1) _ 

= Mld(Pa)letID_Now. 1. Len (Pal letlDJtow) - 1) _ 

And RCT (RctlndexlO). Rout eCode = *R3M* _ 

And RCT (RclIndexlO). SendedRoulelD O "J* Then 

• iR3M^O&SR3M*%STfeS ' 

' <D5g$S<X>P-ID£;£<PP-ID xU7lzir-yh ' 

CTR_NEXTJ> ALLET_I D_OLD = RCT (RctlndexlO). NP I DJttM 
CTR_NEXT_PALLET_ I DJfEB = " 

' ®m&mwwL<DBtomnfc&<Dmm * 

RCT (RctlndexlO). SendedRoulelD = * 1" 

• a?sa«imBLic asFicR3c*<*r*^ ? ■ 

Rctlndexll = 0 
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Do Until RCT (Ret Index 11). No < 1 

If Mid(RCT(RctIndexll>.PaHD, 1. Len (RCT (Rctlndexll). Pal ID) - 1) _ 
= Mid (Pal lelID_Now. 1, Len (Pal letlDJIow) - 11 _ 
And RCT (Rctlndexll). RonteCode = *R3C Then 

• cm. aR3ca<*r. /u^h&flMaa**. ' 

Ret Index I = 0 
Ret lndex2 = 0 
Ret Indcx3 = 0 
Rcllndex4 = 0 
Rcllndcx5 = 0 
RctlndexB a 0 
Rctlndex7 = 0 
RclIndexB = 0 
Rcllndex9 = 0 
Ret Index 10 = 0 
Rctlndexll = 0 
Rcllndex12 = 0 
Rctlndexl3 - 0 
RcllndexU = 0 
RctlndexlS = 0 
RctlndexIB = 0 
Rctlndexl7 - 0 
Rcllndexl8 = 0 
Rctlndexl9 = 0 
Rctlndex20 = 0 
Exit Sub 
End If 

Rctlndexll = Rctlndexll t 1 
Loop 

' C<Of$. S?S®imBLfC^SFlCR3C^SL^U^e. 

' mv&mwmo&Mmmiz&co? >j 7 — * 

RCTUlclIndexiO). SendedRoutelD = " 

'RctIndexlO:SR3M<DU=]-F£te^-r**'f>* 
•RctIndexl8:^R3UOUr3-HO. ft^3Cte«£ra*KT 
' RctIndexl9:ftkR3COU3- H^mTK-T^^-f 
Rctlndexl8 * 0 
Do Until RctlndexlS = 10 

If RCT(RcUndexlO).SendedR3CJT03ID(RctIndexl8) = " Then Exit Do 
Rctlndexl9 « 0 

Do Until RCT (Ret Index 19). No < 1 

If RCT(RcUndexl9).PalID = RCT (Ret Index 10). SendedR3C J 03 ID (Ret Index 181 . 
And RCT (Ret Index 19). RouleCode 55 *R3C _ 

And RCT(RctIndexl9).NPID_R3C * RCT (Re (Index 10). SendedR3C_ff04ID (Ret Index 18) Then 

RCT (Ret Indexl9). SendedRoutelD = * 1" 
End If 

Rct!ndexl9 = Rctlndexl9 + 1 

Loop 

Rctlndexl8 = Rctlndexl8 + 1 
Loop 

• rtUyh&mmm.^ • 

Rctlndexl * 0 
Rctlndex2 - 0 
Rcllndex3 = 0 
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Rcl 


Index4 = 


0 


Rcl 


IndexS = 


0 


Rcl 


.Index6 = 


0 


Rcl 


lndex7 = 


0 


Rcl 


Index8 = 


0 


Rcl 


Index9 = 


0 


Rcl 


IndexiO 


= 0 


Rcl 


Indexll 


= 0 


Rcl 


Indexl2 


= 0 


Rcl 


.Indexl3 


= 0 


Rcl 


Jndexl4 


= 0 


Rcl 


.IndexlS 


= 0 


Rcl 


;lndexl6 


= 0 


Rcl 


[Indexl7 


= 0 


Rcl 


Hndexl8 


= 0 


Rcl 


i Indexl9 


= 0 


Rci 


Undex20 


= 0 


Exit Sub 





End If 

RctlndexlO = RctlndexlO + ] 
Loop 



< SFKR3Crt<* 0 & gSFO^R3C»ffiW ? ) or SR3C#& L>- 



Rctlndex = 12 ^R3Clt^*-f >9 
' Rctlndex2 = 13 gR3C4f 

9 Rctindex3 = i4 asF©£R3Cfs««cHKffi*^ 

Do Until RCT (Ret Index 12). No < I 

If RCT(Rctlndexl2).PalID = Pal letlDJtow _ 
And RCT(RctIndexl2). RouteCode = *R3C Then 

GoTo B0X_ALL_R3C_SENDED_CHK 
End If 

Rctlndexl2 = Rctlndexl2 + 1 
Loop 

Rctlndexl = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
RctlndexS = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
Rcllndex8 = 0 
Rctlndex9 = 0 
RctlndexlO = 0 
Ret Indexll = 0 
Rctlndexl2 = 0 
Rctlndexl3 = 0 
Rctlndexl4 = 0 
RctlndexlS = 0 
RctIndexI6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
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Rctlndex20 = 0 ' \ 

Call OnErrorPRC 
Ex i I Sub 

' ZOm* BR3C***0. SSF<B±R3C««»CHK^ 
B0X_ALL_R3C_SENDED_CHK : 

Do Until RCT (Ret Index 13). No < 1 

If RCT(Rcllndexl3). PallD = PalletlDJIow _ 
And RCT (Ret Index 13). RouleCode = *R3C 
And RCT (Ret Index 13). SendedRoutelD = T Then 
RctlndexU = Rctlndexl4 + 1 
If RCT (Ret Index 1 3). NextPal lets = Ret Indexl4 Then 
' Z(Om, iSF«D^R3C^$S^-efe^ 
Rctlndexl = 0 
Rctlndex2 = 0 
Rctlndex3 = 0 
Rctlndex4 = 0 
Rctlndex5 = 0 
Rctlndex6 = 0 
Rctlndex7 = 0 
Rctlndex8 = 0 
Rctlndex9 = 0 
Ret Index 10 = 0 
Rctlndexl 1 = 0 
Rctlndexl2 = 0 
Rctlndexl3 = 0 
RctlndexH = 0 
RctlndexlS = 0 
Rctlndexl6 = 0 
Rctlndexl7 = 0 
Rctlndexl8 = 0 
Rctlndexl9 = 0 
Rcllndex20 = 0 
Call OnErrorPRC 
Exit Sub 
End If 
End If 

Rctlndexl3 = Rctlndexl3 + 1 
Loop 

Do Unt il RCT (Ret Index 15). No < 1 

If RCT(Rctlndexl5).PalID = PalletlDJfow _ 
And (RCT(RctIndexI5).RouteCode = "R3D* _ 
Or RCT (Ret IndexlS). RouteCode = "R3M") Then 

RCT (Ret IndexlS) . SendedRoutelD = mm 
End If 

RellndexlS = RctlndexlS + 1 
Loop 

Do Until RCT (Ret Index 16). No < 1 

If RCT(RctIndexl6).PalID = PalletlDJtow 
And RCT (Ret Indexl6). RouteCode = *R3C" _ 
And RCT(RctIndexl6). SendedRoutelD O ' V Then 

' ®%$S4>P-ID€^OP-ID XUTfc-fey I 

CTR_NEXT _P ALLET_ I D_0LD = RCT (Ret Index 16). NP ID __R3C 
CTRJ?EXTJ>ALLETJD J1EW = " 
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• ®ftmim&*> 

RCT(RclIndexl6). SendedRoutelD = " 1" 

• ccorn, a u y b^m^m^. 



Ret 


Indexl = 


0 


Ret 


Index2 = 


0 


Ret 


Index3 = 


0 


Ret 


Index4 = 


0 


Rcl 


IndexB = 


0 


Ret 


Index6 = 


0 


Ret 


Index7 = 


0 


Ret 


Index8 = 


0 


Rcl 


Index9 = 


0 


Rcl 


IndexlO 


= 0 


Rci 


Indexl 1 


= 0 


Re! 


.Indexl 2 


= 0 


Rcl 


Jndexl3 


= 0 


Rci 


ilndexl4 


= 0 


Rcl 


tlndexlS 


= 0 


Rci 


Jndexl6 


= 0 


Rci 


tlndexl7 


= 0 


Rci 


ilndexl8 


= 0 


Rci 


L Index 1 9 


= 0 


Rcl 


tlndex20 


= 0 


Ex 


it Sub 





End If 

Rctlndexl6 = Rcllndexl6 + 1 
Loop 

Call OnErrorPRC 
Exit Sub 

End Sub 

b ID-fey b®S**************** 

Sub SelFirstPalletldO 
Ret Index = 0 

Do Until RCT (Ret Index). No < 0 

If RCT (Ret Index) . Row = l And RCT (Ret Index). Col = l Then 

CTOEXTJ>ALLETJD_NEff = Left (RCT (Re t Index) . Pal ID. Len (RCT (Ret Index). Pa I ID) - l) & '4" 
Ret Index = 0 
Exit Sub 
End If 
Ret Index = Ret Index + l 
Loop 
End Sub 

Sub RunPalletsO 
Rem CALLPLT 

If CTR_NEXT_PALLET_I D_OLD = *@%PALlD@* Then ¥n Call @SPALID@ ¥n Exit Sub ¥n End If 

End Sub 

Sub OnErrorPRC 0 
END 

End Sub 

Sub MakeRuteControlTable 0 
Ret Index = 0 
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Open "syubelu out. ixt* For Input As #1 




Do Until EOF(l) 




Line Input #1. InputRCT 




splitEx InpulRCT, vbTab, FotSdI i I 0 




RCT (Ret Index). No = ForSplit(O) 




RCT (Ret Index). SFID = ForSplit(l) 




RCT (Ret Index). Row = ForSpl j t (2) 




RCT (Ret Index). Col = ForSpl it (3) 




RCT (Re t Index). Pall D = ForSpl it (4) 




RCT (Ret Index). SubNo = ForSpl it (5) 




RCT (Ret Index). RouteCode = ForSolit(6) 




RCT (Rctlndex) . NextPal lets = FnrSnlit m 




RCT (Rctlndex). NPID R3R = ForSol i t (8) 




RCT (Rctlndex). NPHLR3M = ForSpl it (9) 




RCT (Rctlndex). NPID_R3D = ForSpli t (10) 




RCT (Ret Index). NPID J3C = ForSpl it (11) 




RCT (Ret Index). SendedRoutelD = ForSpl it (12) 




Rctlndexl = 0 




Do Until Rctlndexl = 10 




splitEx ForSpli l (13 1 Rctlndexl), \\ ForSpl U2 0 


RCT (Ret Index) . SendedR3C_W03ID (Ret Indexl) 


= ForSpli 12 (0) 


RCT (Ret Index) . SendedR3C_W04ID (R C t Index 1) 


= ForSpli 12(1) 


ForSpli 12 (0) = " 




PorSplitZ(l) = " 




Rctlndexl = Rctlndexl + 1 




Loop 




Rctlndex = Rctlndex + 1 




I /"inn 




Close #1 




InputRCT = " 




Rctlndex = 0 




Rctlndexl = 0 




ForSpl it (0) = " 




ForSpl i t (1) = " 




ForSpl it (2) = " 




ForSpl it (3) = " 




ForSpl it (4) 




ForSpli t (5) = " 




ForSpl it (6) = " 




ForSpl it (7) = " 




ForSpl it (8) = " 




ForSpl it (9) = " 




ForSpl it (10) = 




ForSpl it (11) = " 




ForSpl it (12) = " 




ForSpl it (13) = " 




ForSpl it (14) = " 




ForSpl i t (15) = -# 




ForSpli t (16) = " 




ForSpl it (17) = " 




ForSpl it (18) = " 




ForSpl it (19) = " 




ForSpl it (20) = " 




ForSpli t (21) = 
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ForSpl i I (22) = " " 

End Sub 

'mmm*m*^SPLIT{I^mmm*mmm**** 

Public Sub splilEx(sText As String, sDelimiter As String, ByRef sResullO As String) 
Dim lLenText As Long 
Dim lPos As Long 
Dim IFindPos As Long 
Dim i As Long 
ReDim sResutt (0) 
lLenText = Len(sText) 
If lLenText = 0 Then 

Exit Sub 
End If 
i = 0 

For lPos = 1 To lLenText 

IFindPos = InStrUPos, sText, sDelimiter) 
If IFindPos = 0 Then IFindPos = lLenText i 1 
ReDim Preserve sResult (i) 

sResult(i) =Mid$(sText, lPos, IFindPos - lPos) 
i = i + 1 
lPos = IFindPos 
Next 

If Mid$(sText, lLenText. 1) = sDel imi ter Then 
ReDim Preserve sResul t (i) 
sResult (i) = " 
End If 
End Sub 
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2 j>n 
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6 qN->_TE£5£77T (i. j) 

7 T 0N-*S®77r (i.'j) 

3 i=i+l 

4 i>m 

5 j=j + l, 1-m 
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L4IE& Mi77-CS<t!5l-ift$¥.) 



mi 



C£K<B)L3S54«J« = 1 & 

852 £S5<0&f§m^£jB<Ol4&2MJ£ 
!B3 £85<7>l4SB2mtt«£ 
£i&0)L4?&2ai*S 
^£teOL4$B4*fiis5 
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355 



mi 
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SB3 ^8§g)L4m"2gTO=^ 
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2 i>n 

35! £8B05L3$&4Si*S (i. j) 
S52 NOP 
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S85 
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=L3iiS^lEl«ag3Efl:77i 
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14&8J 
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m2 



1 1-U-i 
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3 .i.-i+T" 

4 i>m 
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L s J 
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B5 

me 
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-»^lgC2L4f 2|Q«c (I. j) 
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J>10 "" 
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L4M8J 



j>n 

^«S^)L3m4m^ti. i)=2 & 
£ISa>L4S&4fiBJ*(i. 

-*^K<©L4m2^(i.i) 
£tecPL 4%2^ kU, j)=g§ 

'^«§OTL4m2®i?2(i. j) 
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^N^/fc^** li. j) 
ON-^S^' ti. j) " 

"i>m 
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ftf»-ft^* WK&ffi! : 0 0 1-1 

jE»/A^/BB^iai/^ffl^/Jftff.aig)L 2 (gg#-E|0 0 10-1) 

Option Explicit " ~" 

Rem #DEFPUB 
Rem PUB4N2 

Private W@*30O*3 10*280*290*020 As @*23@ 
Rem PUBIN2 

Private @*31O*28O*29O*02@ As @*23@ 
Rem PUB5C2 

Private CTRL_W@«30@_^28O^29@_STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y2 

Private CTRLJT®*30O*28O*29OTSJ*RANSin0N_FLG_P As Integer 
Rem PUB5B2 

Private CTRLJW30«JX28i^§J529§JTS.TRANSITIONJLG PP As Integer 
Rem PUB6F2 

Private CTRL_WW30M«3I§.e«28MX29§_«X02§J«OT^VALIDJ ? LG As Boolean 
Rem #DEFEND 

Rem fDEFPRV 

Rem PRV2T2 

Private W<^0O*31O*28O*29O*G2Ok As 8*23@ 
Rem PRV7R2 

Private CTRL_W@*30O*29@_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJ*OTJOJO*23@ As @*23@ 
Rem $PRV2W2 
©K 1 529 
Rem SPRV2E2 
Rem $PRV4W2 
@S155@ 
Rem SPRV4E2 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L2_@*3 10*280*290*020 0 
B0X_1 : 
Rem PRVLG 

If W@K30O*3 10*280*290*020 = CNSJ*0TJKUIL§*23§ Then 

GoTo B0X_2 
End If 

GoTo BOO 

BOX J: 
Rem PRVLG 
@*15@ 

BOX J : 
Rem PRVLG 

If W@*30O*31O*28O*29O*02@_wk O CNSJWTJCUIL@*23@ Then 

GoTo B0X_4 
End If 

GoTo BOX J 

B0X_4: 
Rem PRVLG 

TOX30OX3 10*280*290*02® = ff@*30O*3 10*280*290*02® wk 
Rem PRVLG 

CTRL3@*30O*28O*29OTSJ"RANSlTI0N_FLG = CTRL W@%30@ 0*28® 0*29® STS_TRAHSITION FLG + 1 
GoTo BOO 

I B0X_5: 
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Rem PRVLG " 

1 f CTRL_W§X30§_W28§.§X29e.STSJRANSlTI0NJ f LGJ 
= CTRL_W^30OX28OX29®„STS„TRANSITI0NJLgIpP Then 

G0T0 BOO 
End If 

G0T0 B0X_7 

B0X_6: 
Rem PRVLG 

CTRL_W@X30Q_eSS31§_§X28®^29OX02O0T_VALIDJLG = True 
G0T0 BOXJE 

B0X_7 : 
Rem PRVLG 

CTRLJW30MX298JNGJLG = True 
G0T0 B0X_E 
BOX J: 
End Sub 

Rem *** PRCEND 
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Option Explicit ~~ " 

Rem #DEFPUB 
Rem PUB4N3 

Private ff6X306_6X316_6X286_6X296_6X026 As Integer 
Rem PUB1N3 

Private W©X305i_6X3156_6X2856_§X2956_6X2006 As @%235@ 
Rem PUB5C3 

Private CTRLJ§X30§.«X28M%29§_STS^TRANSITIONJLG As Integer 
Rem PUB5Y3 

Private CTRLJ§X30«JH;28MX29©JTS.TRANSITIONJ ? LGJ > As Integer 
Rem PUB5B3 

Private CTKL L .V«30»_«28«.«29§JSTS.TRANSIT10N FLG PP As Integer 
Rem PUB6F3 

Private CIRLjeX30MX31«^iX28MX29©J%02O0T_VALIDJ ? LG As Boolean 
Rem SDEFEND 
Rem 9DEFPRV 
Rem PRV2T3 

Private W6X306_6X3ie_6X286_6%296_6X026_wk As Integer 
Rem PRV7R3 

Private CTRLJT6X306_6X296JNGJLG As Boolean 
Rem PUBKU 

Private CNSJWTJttJHJnteger As Integer 
Rem SPRV2W3 
6X1626 
Rem SPRV2E3 
Rem IPRV4W3 
6X1656 
Rem SPRV4E3 
Rem SDEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L3_6X31OX28OX29§__@*026 () 
BOX^l : 
Rem PRVLG 

If W6X306_8X3 l6_6X286_eX296_6X02e = CNSJTOTJttJILInteger Then 

G0T0 B0X_2 
End If 

G0T0 BOXJE 

B0X_2: 
Rem PRVLG 
6X166 

BOXJ: 
Rem PRVLG 

If m30§_«X316.JX286_6X296_6X026_wk O CNSJfOTJCUHJnteger Then 

G0T0 B0X_4 
End If 

G0T0 BOXJ 

B0X_4: 
Rem PRVLG 

ff6X306_6X3 16_6X286_6X296_6X026 = W6X306_6X316_6X28§_«X296_6X026_wk 
Rem PRVLG 

CTRL_W@X30@^6X28@^§X29@.STS - TRANSITION_FLG = CTRL_ff@X30@^28@ 8X296_STSJTRANSITI0N_FLG + 1 
G0T0 BOO 

BOXJ: 
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Rem PRVLG 

I f CTRL3§X30MX28§JX29§_STS_TRANSITION JLG J 
= CTRL_W«X30MX28«_§X29§_STSJRANSITION_FLGJ > P Then 

G0T0 B0X_6 
End If 

G0T0 B0X_7 

B0X_6 : 
Rem PRVLG 

CTRL3^30MX31O«28O«29O«02@_N0TJ r ALID.FLG = True 
G0T0 BOX_E 

B0XJ7: 
Rem PRVLG 

CTRLJ@K30O*29@JNG_FLG = True 
G0T0 BOXJE 

BOX J: 
End Sub 

Rem *** PRCEND 
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Option Explicit " 
Rem #DEFPUB 
Rem PUB4N4 

Private W8X308_@X318_@X288_@X298_@X02e As 8X238 
Rem PUB1N4 

Private W8X3058_8X315©.JX2858_8X2958_8X2Q08 As 8X2358 ■ 
Rem PUB5C4 

Private CTRLJW08^X288_8X298_STSJTRANSITI()N FLG As Integer 
Rem PUB5Y4 

Private CTRLJ"«X30MX28«.«29§_STSJRANSITIONJ ? LC_P As Integer 
Rem PUB5B4 

Private CTRLJ«X30©JX28^§X29«_STS.TRANSITIONJLGJP As Integer 
Rem PUB6F4 

Private CTRLJ'@X308_8X31@_@X288_8X298_8X028jm_VALID_FLG As Boolean 
Rem 3DEFEND 
Rem PUB4B4 

Private W8X300@_8X310@_8X2808_8X2908_©X2008 As 8X238 
Rem PUB4N3 

Private W3_8X31@_8X288_8X298_8X028 As Integer 
Rem PUB4N2 

' Private W2_8X318_8X288_8X29@_8X028 As 8X238 
Rem 3DEFPRV 
Rem PRV2T4 

Private W@X30@_@X318_8X288_8X298_@X028_wk As 8X238 
Rem PRV7R4 

Private CTRLJT8X308_8X298JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJiOT_KUH_String As String 

Private CNSJJOTJOIHJnteger As Integer 

Private CNSJiOTJOJOoolean As Boolean 

Private CNSJfOT.KUlLLong As Long 

Private CNS_NOT_KUH_S ingle As Single 

Private CNS_NOTJvUHJ)ouble As Double 

Private CNSJNOTJCUILYa riant As Variant 

Private CNSJIOTJOJILCurrency As Currency 

Private CNS_NOTJUIH_Byte As Byte 

Private CNS_NOTJCUH_Date As Date 
Rem SPRV2W4 
8X1728 
Rem SPRV2E4 
Rem SPRV4W4 

m\m 

Rem SPRV4E4 
Rem #DEFEND 

Public Sub MainO 
Rem #VECREP Private Sub L4_8X318_@X288_8X298_@X028_8X078 0 

BOXJ : 
Rem PRVLG 

If W8X30OX318_8X288_8X298_8X028 = CNS_N0T_KUOX238 And _ 
Rem PRVLG 

W3_8X3 1OX28OX29OX028 = 8X078 Then 
GoTo BOXJ 
End If 
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G0T0 B0X_E ~ "~ 

B03L2 : 
Rem PUB IN 

If W«J5305^«53I5Mas285OX295MX200§ = CNS NOT KUH @56235@ Then Go To Box 3 
Rem PRVLG 

B0X_3: 
Rem PRVLG 

If W@*30OX31OB28O*29OS02@_wk O CNSJ¥0T_KUO*23§ Then 

GoTo B0X_4 
End If 

GoTo BOXJ 

B0X_4: 
Rem PRVLG 

W§S30O*3IO*28§_§X29OS02© = VT@%30§ 0%31O*28O*29M*O2@_wk 
Rem PRVLG 

CTRLJ^30O«28@^29@^STS„TRANSITI0N_FLG = CTRL__W§*3G® §X28® §*29®_STSJTRANSITION FLG + 1 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

I f CTRL_W§X30§«§X28§ - #SI529§_STS ^TRANSITION _FLG_P 
= CTRLJW30@_@*28O^29@_STS_TRANSITI0N FLGJPP Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTW^W«X30®_iX31«JX28«^W29t_i%02O0T_VALIDJlG = True 
GoTo BOXJE 

B0X_7: 
Rem PRVLG 

CTRLjraX3O®J*290_ING_FLG = True 
GoTo B0X_E 

BOX J: 
End Sub 

Rem *** PRCEND 
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Option Explicit ~ , . ________ 

Rem #DEFPUB 
Rem PUB4N2 

Private ff@X30O*3 10*280X290*028 <@X268, @*278) As @*23@ 
Rem PUB1N2 

Private @*3 10*280*290*02® (8*26®, 6X276) As @*23@ 
Rem PUB5C2 

Private CTRL^30O«28OX29©„STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y2 

Private CTRLJ@*30OX28@_^29^STS_TRANSIT10NJLG_P As Integer 
Rem PUB5B2 

Private CTRLJ^30O^28O^29@_STS^TRANSITI0NJLG_PP As Integer 
Rem PUB6F2 

Private CTRLff@X30O»3I@^28O«29O«02O0TJ , ALID.FLG (@*268, @*27@) As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T2 

Private W8*30O*31O*28O*29O*02Ok(@*26@. @*27@) As 8*230 
Rem PRV7R2 

Private CTRL_W@*30O*29@JNGJ ? LG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUH_@*23@ As @*23@ 
Private Gyou as Integer 
Private Retu as Integer 
Private Ut i_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Uti_Max as Integer 
Private Soto_Max as Integer 
Rem $PRV2ff2 

Rem $PRV2E2 
Rem $PRV4W2 
@%155@ 
Rem SPRV4E2 
Rem #DEFEND 
Public Sub MainO 
Rem SVECREP Private Sub L2_@*3 10*280*290*02® 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If @*34@ < 8*35® then 
Rem PRVLG 

UtiJIax = mm 

Rem PRVLG 

Sotojtfax = @*27@ 

End if 
Rem PRVLG 

If @*34® > @*35® then 
Rem PRVLG 

UtiJIax = @*27® 

Rem PRVLG 

SotoJIax = @*26@ 
End If 
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UtLCnl = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = SotoJIax + 1 
UtLCn! = 0 
Rem PRYLG 

Jf @S34@ < ®%m then 
Gyou = UtLCnt 
Relu = Soto_Cnt 
End If 
Rem PRVLG 

If @S34@ > @%35@ then 
Gyou = Soto_Cnl 
Relu = UtLCnl 
End If 

Do Until UtLCnt = Utijlax + 1 
BOX.!: 
Rem PRVLG 

If WQX300X31« - @a£280«290X02e(Gyou,Retu) = CNS_N0TJCUIL®*23i Then 

GoTo B0X.2 
End If 

GoTo B0X_E 

B0X_2 : 
Rem PRVLG 

mm 

BOX J : 
Rem PRVLG 

If W@»300^310«28@^290«02e_wk(Gyou. Retu) O CNSJJ0T_KUO*23® Then 

GoTo B0X_4 
End If 

GoTo B0X.J 

B0X_4 : 
Rem PRVLG 

W@*30@_@*3 l@_@*28O*29O*02@ (Gyou, Re t u) = W85K30OS3 10*280*29@_@%02@_wk (Gyou, Re t u) 
Rem PRVLG 

CTRLjm30OX28OX29@_STS^TRANSIT10NJLG = CTRL_ff@%30O*28@_^29@_STS_TRANSITI0N FLG + 1 
GoTo BOO 

B0X_5: 
Rem PRVLG 

If CTRL3'@*30@_@^28OX29@JTS_TRANSITI0N_FLG_P 
= CTRL3@X30OX28@_@X29@_STS_TRANSITI0N_FLGJ > P Then 
GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRLjm30O^3lO*28@_@*29@_@*02O0TJ r ALID_FLG (Gyou, Retu) = True 
GoTo B0X_E 

BOXJT: 
Rem PRYLG 

CTRL_ff®*30O*29®JNGJ ? LG = True 
GoTo BOX_E 

BOO : 

UtLCnt = UtLCnt 4 1 
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Rem PRVLG 

If @*34@ < @%35@ then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If %%ZA% > @5&35@ then 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 
Loop 

Soto.Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @5S34@ < @%35@ then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @5K34@ > then 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti.Cnt = 0 
Soto_Cnt = 0 
Utijtfax = 0 
Soto_Max - 0 
End Sub 

Rem *** PRCEND 
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Option Explicit — 

Rem SDEFPUB 
Rem PUB4N3 

Private Wm30O»31@_@X28O^296_@«02@(@^26@.@X27@) As Integer 
Rem PUBIN3 

Private W@*305O*3 150*2850*2950*200® (@S265@, @*275@) As @*235@ 
Rem PUB5C3 

Private CTRLJ@«30OX28O»29@_STS^TRANSlTI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRLJ"@X30OX28O«29@_STS_TRANSITI0NJLG_P As Integer 
Rem PUB5B3 

Private CTRLJ@X30O«28@_@«298.STS - TRANSITI0NJLG_PP As Integer 
Rem PUB6F3 

Private CTRLJfr@*30O*31OK28O*29O*02O0T_VALID FLG (@%26@, @%27@) As Boolean 
Rem SDEFEND 
Rem SDEFPRV 
Rem PRV2T3 

Private W@«30OX31O»28O^29O»02@^wk (^260,^27©) As Integer 
Rem PRV7R3 

Private CTRLJ"8*30O*29@JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJWTJUJrLInteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Uti_Max as Integer 

Private Soto_Max as Integer 
Rem $PRV2W3 
@%162§ 
Rem SPRY2E3 
Rem $PRV4W3 

mm 

Rem SPRV4E3 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L 3_@*310* 2 80*290*02® 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If @*34@ < mm then 
Rem PRVLG 

UtiJIax = @*26§ 

Rem PRVLG 

SotoJIax = @*27@ 

End If 
Rem PRVLG 

If @*34@ > @*35@ then 
Ren PRVLG 

UtiJIax = @*27@ 

Rem PRVLG 

Sotojfax = @*26§ 
End If 
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UlLCnt = 0 
Soto^Cnt « 0 
Do Until Soto_Cnt = Sotojiax + I 
UiLCnl = 0 
Rem PRVLG 

If @S34@ < mm then 
Gyou = Uti_Cnl 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*34@ > mm then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 

Do Until Uti_Cnt = UtiJIax f 1 
B0XJ: 
Rem PRVLG 

If WiX30«_eX3l§_§X28MX29iJX02« (Gyou, Retu) = CNS_NGTJOJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOO 

B0X_2: 
Rem PRVLG 
8X169 

B0X_3 : 
Rem PRVLG 

If M30O*31O*28O*29O*02@_wk (Gyou, Retu) O CNS_NOT_KWLInteger Then 

GoTo BOXjl 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

VmtoJb%mj%2B%J%2MJ8%m (Gyou, Retu) = W«X30§_«X31i_«X28iJX29§JX02§ - wk(Gyou, Retu) 
Rem PRVLG 

CTRLJ§X30§^«X28«_W29i_STS_TRANSITIONJ ? LG = CTRL_W«530§_W28MX29ejTSJRANSITION_FLG + 1 
GoTo B0X_E 

BOXJ : 
Rem PRVLG 

If CTRL_W@*30@_@%28e^29OTS^TRANSITI0N_FLG_P 
= CTRLW«X30§_«X28M«29« - STS_TRANSITI0NJLGJ > P Then 

GoTo BOO 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL_W@as30@_@%31O%28OX29O*02@_N0T_VALID - FLG (Gyou. Retu) = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRLJT@S30O*29@_ING_FLG = True 
GoTo B0X_E 

BOO: 

Uti Cnt = Uti Cnt + I 
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Rem PRVLG 

If @%34@ < @*35@ then 
Gyou = Uti.Cnt 
Retu = Soto_Cnt 

End If 

Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Soto_Cnt 
Retu = Uti.Cnt 

End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @%34@ < @%35@ then 
Gyou = Uti.Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @^34@ > @£35@ then 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti_Cnt = 0 
Soto_Cnt = 0 
Ulijfax = 0 
Soto_Max = 0 
End Sub 

Rem m PRCEND 
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hJKDM : 0 0 6-1 

jEM/\hti/'m&i^/&mm/m.Rm<D'L a oq6o-d 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@%30@_@»31O^28@_§X29O«02@ (@X26@, e»27@) As @*23@ 
Rem PUBIN4 

Private W@S305O*3 1 50*2850*2950*200© (@3265@, @S2750) As @%235@ 
Rem PUB5C4 

Private CTRLjm30OX28O«29@^STS_TRANSITI0NJLG As Integer 
Rem PUB5Y4 

Private CTRLJ'@%30O«28@_@»29@^STSJRANSITI0NJLGJ As Integer 
Rem PUB5B4 

Private CTRLJ'@%30O«28O^29@_STS_TRANSITI0N_FLG PP As Integer 
Rem PUB6F4 

Private CTRLJ"@X30O^3lO«28O^29@^02O0T_VALlD_PLG(@«26@, @*27@) As Boolean 
Rem 3DEFEND 

Rem PUB4B4 

Private W@S30QO*3 100*2800*2900*200© (@*26@. @*27@) As @*23@ 
Rem PUB4N3 

Private W3_@*3 10*280*290*02® (@*26@, @*27@) As Integer 
Rem PUB4N2 

Private W2_@*3 10*280*290*02© (@*26@. @*27@) As @*23@ 
Rem #DEFPRV 

Rem PRV2T4 

Private W@%30O*31O*28O*29O*02Ok(@*26@, @*27@) As @*23@ 
Rem PRV7R4 

Private CTRL_W@*30O*29@JNG_FLG As Boolean 
Rem *PUBKU 

Private CNS.NOTJUH^String As String 

Private CNS_NOT_KUHJnteger As Integer 

Private CNSJWT_KUH_Boolean As Boolean 

Private CNS_NOTJttJH_Long As Long 

Private CNS.NOT_KUH_S ingle As Single 

Private CNSJWJCMLDouble As Double 

Private CNSJWT_KUH_Va riant As Variant 

Private CNS_NOTJ(l)H_Currency As Currency 

Private CNSJWTJOJOyte As Byte 

Private CNSJWTJOJH_Date As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnl as Integer 

Private UtiJIax as Integer 

Private Soto_Max as Integer 
Rem $PRV2ff4 
0*1 72@ 
Rem SPRV2E4 
Rem SPRV4W4 

mm 

Rem $PRY4E4 
Rem tDEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub L4_@*3 10*280*290*020*070 0 
Gyou = 0 



tfiliE# 2 0 0 4 



-3099192 



#H 2003-330797 



^-v: 109/ 



[miii] 

tt&~±H7 h)V<DM : 0 0 6-2 

jE&/\£ii/&m^/<&mt&/*&R*&<oL 4 eg*j#^o o 6 o - 2 ) 

Retu = 0 " — 

Rem PRVLG 

If @%34@ < 6X35® then 
Rem PRVLG 

UtLMax = @*26@ 

Rem PRVLG 

Sot o.Max = @*27@ 

End If 
Rem PRVLG 

If @S34@ > @K35@ then 
Rem PRVLG 

UtiJIax = @S27@ 

Rem PRVLG 

Soto_Max = @S26@ 
End If 
Uti.Cnt = 0 
Soto.Cnt = 0 
Do Until Soto_Cnt = Sotojiax + 1 
Uti.Cnt = 0 
Rem PRVLG 

If @*34@ < @*35@ then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

1 f @*34@ > @*35@ then 
Gyou = Soto_Cnt 
Retu = Uti.Cnt 
End If 

Do Until Uti_Cnt = UtiJIax + 1 
BOX J : 
Rem PRVLG 

If W@X30O*31OX28O*29OK02@ (Gyou, Retu) = CNSJWT_KUH_JX23@ And _ 
Rem PRVLG 

W3_@%31O*28O*29O*02@ (Gyou, Retu) = @*07@ Then 
GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2: 
Rem PUB IN 

If Wm05O*315O*285O*295@_@S200@ (Gyou. Retu) = CNSJTOTJ(U03235@ Then Go To Box_3 
Rem PRVLG 

m 1 70 

B0X.3 : 
Rem PRMG 

If ff@3530O353IO^28O%29@_@X02@_wk (Gyou. Retu) O CNS_NOTJOJH_@*23@ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

ff@X300*31@_@%28@^290X02@(Gyou. Retu) = W@«300X310%280^29e^026_wk(Gyou. Retu) 
Rem PRVLG 
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jE«/tH^/E?8g/»fl5g5/«t»asg<OL 4 (ggffifO 0 6 0- 3) 

CTRLJ«X30®_«28ejX29§_STS_TRANSITI0NJLC = CTRLJ«30§JX28«.eX29§.STSJRANSITI0MJLG + 1 
GoTo BOO 

BOO : 
Rem PRVLG 

I f CTRLJft*30M*28O*29@_STS ^TRANSIT 1 0N_FLGJ 
= CTRLJ'@X30OX28@_@X29@^STS_TRANSlT10N_FLG_PP Then 

GoTo BOO 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLJ«X30flJX31§_®X28MX29iJX0200T_VALIDJ f LG(Gyou, Retu) = True 
GoTo BOO 

B0X_7 : 
Rem PRVLG 

CTRLJ@*30O*29@JNG_JLG = True 
GoTo B0X_E 

B0X_E : 

UtLCnt = Uti.Cnt + 1 

Rem PRVLG 

If mm < @X35@ then 

Gyou = UtLCnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If @X34@ > @%35@ then 

Gyou = SotoJInt 

Retu = UtLCnt 
End If 

Loop 

Soto^Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @X34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @K34@ > @%35@ then 
Gyou = Sotojtot 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti_Cnt = 0 
Soto_Cnt = 0 
UtiJJax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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mm/mti/&mm/^mft/m&moL 3 (gggg 0070-1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W«X30MX31MX288_W98_§%028 As Integer 
Rem PUB1N3 

Private W«X305§_§X315§.«X285MX295§JX2008 As @%235@ 
Rem PUB5C3 

Private CTRLJ«X30i^«X28MX29§JTSjrRANSITI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRL39X30§_@X28§.e%299.STS„TRANSIT10N - FLGJ As Integer 
Rem PUB5B3 

Private CTRL_W«X30«JX28«_«X29i_STSJRANSITION_FLGJP As Integer 
Rem PUB6F3 

Private CTRLJ'@X30OX31OX28@_@^29@^02O0T_VALIDJLG As Boolean 
Rem SDEFEND 
Rem SDEFPRV 
Rem PRV2T3 

Private W8*30O*31@_@*28O*29O*02@jvk@%07@ As Integer 
Rem PRV7R3 

Private CTRLJ"eX30MX29«»INGJLG As Boolean 
Rem PUBKU 

Private CNSJJOTJftJHJnteger As Integer 
Rem SPRV2W3 

mm 

Rem SPRV2E3 
Rem $PRV4W3 
3X1656 
Rem SPRV4E3 
Rem #DEFEND 
Public Sub Main 0 

Rem #VECREP Private Sub L3 M 0X31i.6X28§.iX29«jMEO2«O 
B0X_1 : 
Rem PRVLG 

If liX3O0j8%310jK28§j9X2M.IXO2i = CNS_N0TJOJH_lnteger Then 

GoTo B03L2 
End If 

GoTo BOXJE 

BOX J: 
Rem PRVLG 

mm 

BOO: 
Rem PUBL3F 

If W8SS30«_§*31O*28§_e«29§J3502Ok«07§ = 1 Then GoTo B0X_4 
GoTo B0X_5 

B03L4 : 
Rem PUBL3F 

If WX3OMX31i_OK280_§X29§JXO2§.wk§XO7§ = 1 Then W§X30e_§X318_«X28§_«X29e_«02§ = @307@ 
Rem PRVLG 

CTRUeX30MX288.fiX298^STSJRANSITIONJLG = CTRL_W§X30e_«28iJSI529MTS_TRANSITIONJLG + 1 
GoTo BOXJE 

B0X_5 : 
Rem PRVLG 

If CTRLJ8X30MX2 8Q%29Q_STS_TRANS I T 1 0N_FLG_P 
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= CTRL„W@X30§.©X28M5529@JTS_TRANSITIONJLG_PP Then 

GoTo BOO 
End If 

GoTo B03L7 

B0X_6 : 
Rem PRVLG 

CTW.J§«30©_W31MX28«_«X29§^«X02MOTJ'ALIDJFLG = True 
GoTo BOXJ 

BOO : 
Rem PRVLG 

CTRl_W©X3O6_0X29©jNGJ ? LG = True 

GoTo BOO 

BOO: 
End Sub 

Rem *** PRCEND 
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MKDgJ : 0 0 8-1 

Option Explicit ~ 
Rem #DEFPUB 
Rem PUB4N4 

Private W@*30O*3 10*280*290*020 As @*23® 
Rem PUBIN4 

Private ff@*305O*315O*285O*295O*200@ As @%235@ 
Rem PUB5C4 

Private CTRL3^30O»28O^29@_ST$JRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Private CTRLJ'@X30O»28@^29@_STS_TRANSITI0NJLG__P As Integer 
Rem PUB5B4 

Private CTRLJ^30O*28@_@^29@^STS.TRANSITI0N_FLG_PP As Integer 
Rem PUB6F4 

Private CTRU^30@_§»31O«28O«29O5K02O0TJ r ALID_FLG As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private ff@*30QO*3 100*2800*2900*2006 As @*23@ 
Rem PUB4N3 

Private W3_@%3 10*280*290*026 As Integer 
Rem PUB4N2 

' Private W2_@*3 10*280*290*02® As @ X2 3@ 
Rem #DEFPRV 
Rem PRV2T4 

Private U W 3 00*310* 2 80* 290*0 2@_wk As @%23@ 
Rem PRV7R4 

Private CTRL_W@*30O*29@JNG_FLG As Boolean 
Rem *PUBKD 

Private CNSJ10TJtt!H_String As String 

Private CNSJfOTJOJHJnteger As Integer 

Private CNSJJOTJOJHJJoo I ean As Boolean 

Private CNS_NOT_KUH_Long As Long 

Private CNS_NOT_KUH_S ingle As Single 

Private CNS_NOT_KUH_Double As Double 

Private CNS_N0TJOJILVa riant As Variant 

Private CNSJIOTLKUlLCurrency As Currency 

Private CNSJJOTJCUHJJyte As Byte 

Private CNS_NOT_KUH_Date As Date 
Rem $PRV2W4 
0*172© 
Rem $PRV2E4 
Rem $PRV4W4 
@*182@ 
Rem SPRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_@X3 lO*28O*29O*02O*07@ 0 
B0X_1 : 
Rem PRVLG 

If W@*30O*31O*28O*29O*02@ = CNSJ*OTJOIO*23@ And _ 
Rem PRVLG 

W3_@*3 10*280*290*020 = @*07@ Then 
GoTo B0X_2 
End If 
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G0T0 BOXJ 

B0X_2: 
Rem PUB IN 

If W@fc305O*315O*285O*295O*200@ = CNS_NOT_KUH_@K235@ Then Go To Box_3 
Rem PRVLG 

BOX J: 
Rem PRVLG 

If W@»30O«3lO%28O^29O*02@3'k O CNS_N0T_KUH_@%23@ Then 

G0T0 B0X.4 
End If 

G0T0 BOXJ 

B0)L4: 
Rem PRVLG 

W@X30O«31OX28OS629O«02@ = W@S30O*31O*28O*29O*02@jvk 
Rem PRVLG 

CTRL3@3530O5528O^29@_STS_TRANSITI0N_FLG = CTRLJ^30@^28OX29@JTS_TRANSITI0N„FLG + 1 
GoTo BOO 

BOX J: 
Rem PRVLG 

I f CTRL J*@%30M^28O*298„STS^TRANSITI0N_FLG_P 
= CTRL3m30@_^28O*29@_STS_TRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_B: 
Rem PRVLG 

CTRL3^30@_^31O»28O»29O»02O0T_VALID_FLG = True 
GoTo BOX_E 

BOX J : 
Rem PRVLG 

CTRLJ'@*30O*29@_ING_FLG = True 

GoTo B0X3 

BOX J: 
End Sub 

Rem *** PRCEND 
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Option Explicit ' " ~" 

Rem #DEFPUB 

Rem PUB4N3 

Private W§X30e^§X31§_eX28MX29§_«X02e(§X269. flX27» As Integer 
Rem PUBIN3 

Private »iX305®_M315§_««285M«95«_§X200§«X26S§ I «X275« As @*235@ 
Rem PUB5C3 

Private CTRLJ«30«.«%28i_«29§.STS.TRAHSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTBJW30^«28^«29iJ5TS_TRANSlTION FLG_P As Integer 
Rem PUB5B3 

Private CTRLJ«30§_iX28i_i%29iJSTS_TRANSITIONJLGLPP As Integer 
Rem PUB6F3 

Private CTRL_W@X30§_eX31MX28MX29O*02§_N0T VALID FLG(@X26§, §X27@) As Boolean 
Rem 3DEFEND 

Rem #DEFPRV 

Rem PRV2T3 

Private W§X308_.W31iJX28iJX29«JJIS02Ok§X07« MX268, §X27« As Integer 
Rem PRV7R3 

Private CTRLJ'W30MX29§JNGJLG As Boolean 
Rem PUBKU 

Private CNSJJOTJttJHJnteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private UtLCnl as Integer 
Private Soto_Cnt as Integer 
Private UtiJIax as Integer 
Private Sotojtfax as Integer 
Rem SPRV2W3 
6X1623 
Rem $PRV2E3 
Rem IPRV4W3 
6X1653 
Rem SPRY4E3 
Rem #DEFEND 
Public Sub MainO 

Rem ftVECREP Private Sub L3_6X31§_©X28@_§X29OX02«0 
Gyou = 0 
Retu = 0 
Rem PRVLG 

If @X34© < @*35@ then 
Rem PRVLG 

UtiJIax = @X26@ 

Rem PRVLG 

SotoJIax = @X27@ 
End If 
Rem PRVLG 

If @X34@ > @K35@ then 
Rem PRVLG 

UtiJIax = 8X27@ 
Rem PRVLG 

SotoJIax = @X26@ 
End If 
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UtLCnt = 0 " 

Soto.Cnt = 0 
Do Until Soto_Cnt = SotoJIax + 1 
UtLCnt - 0 
Rem PRVLG 

If @£34@ < @%358 then 
Gyou = UtLCnt 
Retu = Soto^Cnt 
End If 
Rem PRVLG 

If @K34@ > @K35® then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until Ut i_Cnt = Ulijlax + 1 
BOX J : 
Rem PRVLG 

If \TC*30O*3 10^0*290*028 (Gyou, Retu) = CNSJIOTJUJH Integer Then 

G0T0 B0X_2 
End If 

G0T0 BOX_E 

B0X_2: 
Rem PRVLG 

mm 

B0X,3 : 
Rem PUBL3F 

If *@*30O*31O*28O*29O*02Ok@*07@ (Gyou. Retu) = 1 Then G0T0 B0X_4 
G0T0 B0X_5 

B0)L4: 
Rem PUBL3F 

If W@S30O*31O*28O*29O*02Ok@*07@ (Gyou, Retu) = 1 
Then W@*30O*3 10*280*290*026 (Gyou, Retu) = @*07@ 
Rem PRVLG 

CTRLJ@^30OX28O*29@_STS_TRANSITI0N_FLG = CTRL_W^30@_@«28O«29@^STSJRANSlTl0NJLG + 1 
G0T0 BOX_E 

B0X_5 : 
Rem PRVLG 

I f CTRL - .W@X30@_@X28O*29@.STS.TRANSITI0N_FLG.P 
* CTRL_W^30@_@X28@_@^29@ - .STS_TRANSITI0NJLG_PP Then 

G0T0 B0X_6 
End If 

G0T0 B0X_7 

BOXJi : 
Rem PRVLG 

CTRLJ@%30O^31O»28O^29O»02@Jf0TJ r ALID_FLG (Gyou, Retu) = True 
G0T0 BOX_E 

B0X_7 : 
Rem PRVLG 

CTRL_ff@S30O*29@JNG_FLG = True 
G0T0 BOX_E 

BOO: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 
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I f §S34@ < @%358 then 
Gyou = UtLCnt 
Retu = Soto_Cnt 

End If 



Rem PRVLG 



I f @S34@ > ©%35@ Ihen 
Gyou = Soto.Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto„Cnt + 1 
Rem PRVLG 

If @*34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @%34@ > @*35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
UtiJIax = 0 
Sot o.Max = 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private ff§X308_8*31@_eX288_8X29e_@X02e (8X268, 8X278) As 8X238 
Rem PUBIN4 

Private ff8X3O58_@X315e_8X2858_8X2950_8X2GO8 (8X2658. 8X2758) As 8X2358 
Rem PUB5C4 

Private CTRU8X308JX288.85B298JTSJRANSIT1ONJLG As Integer 
Rem PUB5Y4 

Private CTRLJ"8X308^8X288JX298_STSJRANSITION_FLGJ> As Integer 
Rem PUB5B4 

Private CTRLJ"8X308.8X288„8X298_STS.TRANS1TION_FLGJ>P As Integer 
Rem PUB6F4 

Private CTRL_W8X308^8X3I8_@X288„8X298 - .8X028^NOTJ , ALID_FLG (8X268, 8X278) As Boolean 
Rem 8DEFEND 
Rem PUB4B4 

Private W8X3008_@X3 1 08__8X2808_8X2908_8X2008 (8X268, 8X278) As 8X238 
Rem PUB4N3 

Private W3_8X3 18__8X288_8X298_8X028 (8X268, 8X278) As Integer 
Rem PUB4N2 

' Private W2_8X318.JX288_8X298_8X02@ (8X268. 8X278) As 8X238 
Rem #DEFPRV 
Rem PRV2T4 

Private W8X308_8X3l8_8X288_8X298_8X028_wk (8X268, 8X278) As 8X238 
Rem PRV7R4 

Private CTRL_WeX308_8X298_ING_FLG As Boolean 
Rem *PUBKU 

Private CNSJJ0TJOJH_String As String 

Private CNSJTOTJCUHJnteger As Integer 

Private CNS_NOOUHJoolean As Boolean 

Private CNS_NOT^.KUHJLong As Long 

Private CNSJfOTJOIH_S ingle As Single 

Private CNS_N0TJOJH_Double As Double 

Private CNSJiOTJOJHJ'ariant As Variant 

Private CNSJWTJHJILCurrencY As Currency 

Private CNSJMTJiUOyte As Byte 

Private CNSJWTJOJOate As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Sotojlnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem $PRV2W4 
8X1728 
Rem $PRV2E4 
Rem $PRV4ff4 
8X1828 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_8X3 18_8X288_8X298_8X028_8X078 0 
Gyou = 0 
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Retu = 0 ' ~~ 

Rem PRYLG 

If 8*348 < @%35@ then 

Rem PRVLG 

UtiJJax = 8*268 

Rem PRVLG 

Sotojiax = 8*278 

End If 
Rem PRVLG 

If 8*348 > 8*35® I hen 
Rem PRVLG 

UtiJIax = 8*278 

Rem PRVLG 

Solojlax = @%26@ 
End If 
UtLCnt = 0 
Sotojnt = 0 
Do Until Soto_Cnt = SotoJIax + 1 
Uti_Cnt = 0 
Rem PRVLG 

If 8*348 < 8*358 then 
Gyou = lit LCnt 
Relu = Soto_Cnt 
End If 
Rem PRVLG 

If 8*340 > 8*358 then 
Gyou = Soto_Cnt 
Retu = Uti.Cnt 
End If 

Do Until UtLCnt = UtLMax + 1 
BOXJ : 
Rem PRVLG 

If ff®*308_®*318_@*28@_®*298__®*02@ (Gyou, Retu) = CNS_N0T__KUILe*238 And _ 
Rem PRVLG 

fl3_8*318_®*288_®*29®_®*028 (Gyou. Retu) = 8*078 Then 
GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 
Rem PUBIN 

If W8*305®_®*3158_8*285®_8*295@_8*200® (Gyou. Retu) = CNSJWTJOJIL8*2358 Then Go To Box_3 
Rem PRVLG 

8*17® 

BOXJ: 

Rem PRVLG 

If W®*308_@*31®_®*28®_8*298_8*G2®_wk (Gyou. Retu) O CNS_NOTJOJO*23® Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W8*30e_®*31®_®*28®_8*298_8*028 (Gyou, Retu) = W@*30e_8*3ie_@*28®_@*298.J*02e_wk (Gyou, Retu) 
Rem PRVLG 
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nm-±^ bjvom : o i o - 3 
iEm/mii/mm^/mm^/®.ft®kV)L4 (ga»^o 100-3) 

CTRLJ*§X30MX28MX29iJTS.TRANSIT]ONJL6 = CTRLJ§X30«JX28§_i%29§JTS^TRANSITIONJ ? LG + 1 
GoTo BOXJ 

BOX J : 
Rem PRVLG 

I f CTRL_W§X30§_«288_«X29t«STS JRANSITION JLGJ 
= CTRL_W©X30§JX28#_§X298_STS_TRANSITIONJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X.7 

BOX J : 
Rem PRVLG 

CTRLjm300^310%280X29@_6*0200TJ f ALID_FLG(Gyou f Retu) = True 
GoTo BOX J 

B0X_7 : 
Rem PRVLG 

CTRL_W8X30OSS29@_]NG_FLG = True 
GoTo BOXJ 

BOX J: 

UtLCnt = UlLCnt + 1 

Rem PRVLG 

If @X34® < @*35@ then 

Gyou = UtLCnt 

Relu = Soto_Cnt 
End If 

Rem PRVLG 

If @*34@ > @%35© then 

Gyou = Soto_Cnt* 

Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto.Cnt + 1 
Rem PRVLG 

If @*34@ < @K35@ then 
Gyou = UtLCnt 
Retu = Sotojtot 
End If 
Rem PRVLG 

If @*348 > @S35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soio_Cnl = 0 
UtiJIax = 0 
SotoJIax = 0 
End Sub 

Rem m PRCEND 
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HHDffl : 0 1 1 - 1 

JE&/mij/m&M/i#mm/1&ftti<DL 3 Pg&ffr-^O 110-1) 

Option Explicit ~ 
Rem #DEFPUB 
Rem PUB4N3 

Private W«S830iJX31«_«X28®JX29§JX02i As Integer 
Rem PUBIN3 

Private 3 0 5@_@» 3 1 5 @„@Sli2 8 5@_@% 2 9 5@_@5fe 2 0 0@ As 8X2356 
Rem PUB5C3 

Private CTRLWW30§^X28l.e%29e.STSJRANSITI0NJ ? LG As Integer 
Rem PUB5Y3 

Private CTRLJ«X30§JX28§_§»29flJTSJRANSITI0NJLGJ > As Integer 
Rem PUB5B3 

Private CTRLJiX30MX28® - «529§_STS_TRANSITIONJ ? LGJPP As Integer 
Rem PUB6F3 

Private CTRLJW30MX31MX28§_W!29«_ai502§JIOOALIDJ ? LG As Boolean 
Rem 3DEFEND 
Rem SDEFPRV 
Rem PRV2T3 

Private WW30tJX31®JX28®JX29MX02i_wk As Integer 
Rem PRV7R3 

Private CTRLJ®X30§_«X29§_INGJLG As Boolean 
Rem PUBKO 

Private CNS_N0TJOJH_Integer As Integer 
Rem SPRV2W3 

mm 

Rem SPRV2E3 
Rem SPRV4W3 
@X165§ 
Rem SPRV4E3 
Rem #DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L3_0%31§_e%28§_i%290_§XO2§O 
BOX J : 
Rem PRVLG 

If W@X30OX31OX28@_@X29@_@X026 = CNSJiOTJOJHJnteger Then 

GoTo B03L2 
End If 

GoTo BOX_E 

B0X_2 : 
Rem PRVLG 

B0X_3 : 
Rem PRVLG 

If W@X3QOX31OX28OX29OX02@_wk O CNSJWTJOJHJnteger Then 

GoTo B0X_4 
End If 

GoTo BOXJ 

B0X_4: 
Rem PRVLG 

W@X30©_©X31@_@X28OX29@_®X02@ = W@X306_@X 3 M M 8X288_tX29tjK02t.wk 
Rem PRVLG 

CTRLJ8X30§ - 9»28§_§X29§.STS_TRANSITI0NJ ? LG = CTRL_W§X30«JX28f^«X29«_STSJTRANSITIONJLG + 1 
GoTo BOX_E 

BOX J : 
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II 1 2 4] 

b)V<DM : 0 1 1 - 2 

!EM/l&ft/&&M/mmm/ifi9t>ti<DL3 (ggffi f 0 110-2) 
Rem PRVLG " 

1 f CTRLJTC*30M*28O*29@_STS .TRANSITION JLG P 

= CTRl^VS%30§.«2M_W2MJTSJRANS!TIOILFLGLPP Then 
GoTo B0X_6 

End If 

GoTo B0X_7 

BOX J : 
Rem PRVLG 

CTRL3'iX30O3531§_§5K28§^29OJ602O0T„VALIDJLG = True 
GoTo BOXJ 

B0X.7 : 
Rem PRVLG 

CTRLjm30@_eX296jNG_FLG = True 
GoTo BOX JS 

BOX J: 
End Sub 

Rem *** PRCEND 
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[HIl 2 5] 

ttm-±'<? b)V<DM : 0 1 2 - 1 

jEa/m^/BBWgS/^fflfi»i/Jg»#<OL 4 (ggggj) 12 0-1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@X30O*31O*28@_@*29O*02@ As @X23@ 
Rem PUBIN4 

Private \V@X305O*315O%285®.JX295OX200@ As @%235© 
Rem PUB5C4 

Private CTRL393S30iJX28® - @SJ29§ - STS_TRANSITION_FLG As Integer 
Rem PUB5Y4 

Private CTRL_W«%30§JX28«.iX29i_STSJRANSITIONJPLGJ As Integer 
Rem PUB5B4 

Private CTRLJ§X30t_§SIS28e_§X29«JTS_TRANSlTIONJ f LG PP As Integer 
Rem PUB6F4 

Private CTRL_W^30@_^31OX28O*29@^02O0T_YALID_FLG As Boolean 
Rem SDEFEND 
Rem PUB4B4 

Private W§X3OO§_«X31O0_0X28OMX29OG_§X2OO§ As @X23@ 
Rem PUB4N3 

Private W3JX31MX28MX29©JX02§ As Integer 
Rem PUB4N2 

' Private W2_«X31«_§X28MX298_§X02« As @X238 
Rem SDEFPRV 
Rem PRV2T4 

Private W§X3OMX31G_0X28e_§X29e_§XO20_wk As @X23@ 
Rem PRV7R4 

Private CTRL_W@X30@_@X29@JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJ*OTJOJH_.String As String 

Private CNS_NOTJttiHJnteger As Integer 

Private CNS_NOOUH_Booiean As Boolean 

Private CNS_NOT_KUH„Long As Long 

Private CNSJIOTJOHLS ingle As Single 

Private CNSJIOTJHJOouble As Double 

Private CNS_NOT_KUH_Variant As Variant 

Private CNSJfOTJttilLCurrency As Currency 

Private CNS_NOTJCUH_Byte As Byte 

Private CNSJTOTJOJHJ)ate As Date 
Rem IPRV2W4 
@XI72@ 
Rem SPRV2E4 
Rem SPRV4I4 
6X1821 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_8X31OX288_@X29§_§X02OX07©0 

B03L1: 
Rem PRVLG 

If W@X30OX31@_@X28@_@X29O*02@ = CNS_N0T_KUOX23@ And _ 
Rem PRVLG 

W3_@X31@_8X28O*29@_@X02@ = @X078 Then 
GoTo BOXJ 
End If 
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tim-^^ hJVCDm : 0 12-2 

lEa/m^^iB^^/^ffijis/iftSfiroL a (gggg 0120-2) 

G0T0 BOO 

BOX J : 
Rem PUB IN 

If W8S305O*315OS285@_@S295O*200@ = CNS_NOTJOJOX235@ Then Go To Box_3 
Rem PRVLG 

@XI7§ 
B0X_3 : 
Rem PRVLG 

If WX30«_iK31§_§X28MX29OX02i.wk O CNSJOT_KUILeX230 Then 

G0T0 B0X_4 
End If 

G0T0 BOXJ 

BOX J : 
Rem PRVLG 

W@*30O*31O*28@_@*29@_@*02@ = W@U0O*31 0*280*290*0 2@_wk 
Rem PRVLG 

W@S300O*3 100*2800*2900*2008 = W@*30O*3 10*280*290*026 
Rem PRVLG 

CTRLJW0O*28O*29OTSJTRANSlTI0NJ ? LG = CTRLJ«%30§_§X28§_§!l529§JTS_TRANSITIONJ f LG + 1 
GoTo BOXJ 

. B0X_5 : 
Rem PRVLG 

I f CTRL J«X30«_iX28MX29§_STS_TRANSITION JLGJ> 
= CTRLJ@*3QO*28O*29OTSJTOSm0NJLGJ > P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLJTO30O*31O*28O*29O*02O0T_VALID_FLG = True 
GoTo BOO 

B0X_7: 
Rem PRVLG 

CTRL_WQ*30O*29@JNG_FLG = True 
GoTo B0X_E 

BOXJ: 
End Sub 

Rem *** PRCEND 
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im 1 2 7] 

tt^-^i? MUDS! : 0 1 3 - 1 

jE«/ffl^/IB^J^/»ffiW/«i»Wg)L 3 (gggHI 0 13 0-1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W8X308.6X3 18.0X288.8X296.0X028 As Integer 
Rem PUBIN3 

Private W8X 3 058.8X3 158.8X2 8 58.0X2 95 8.8X2 008 As 0X2358 
Rem PUB5C3 

Private CTRL_W0X3Oe_8X280.0X290_STS_TRANSITION.FLG As Integer 
Rem PUB5Y3 

Private CTRL.W8X306_6X288_8X29e_STS_TRANSITI0N.FLGJ> As Integer 
Rem PUB5B3 

Private CTRL_W0X3Oe_0X28e_0X296_STS_TRANSITION_FLG_PP As Integer 
Rem PUB6F3 

Private CTRL_W0X3O0_0X310_0X280_0X296_8XO2e_NOT_VALID_FLG As Boolean 
Rem SDEFEND 
Rem WffiFPRV 
Rem PRV2T3 

Private W0X3O0_0X3I0_©X28e_eX290_0XO26_wk0XO70 As Integer 
Rem PRV7R3 

Private CTRL.W@X3O0_0X298_ING.FLG As Boolean 
Rem PUBKU 

Private CNS.NOT.KUHJnteger As Integer 
Rem SPRV2W3 
8*1628 
Rem SPRV2E3 
Rem $PRV4W3 
6X165® 
Rem $PRV4E3 
Rem SDEFEND 

Public Sub Main 0 

Rem SVECREP Private Sub L3_0X310_0X280_0X290.0XG20O 

BOX_l : 
Rem PRVLG 

If W6X3O0_0X31@_©X280_0X290_0XO28 = CNSJOTJCUHJnteger Then 

GoTo B0X.2 
End If 

GoTo BOO 

BOO: 
Rem PRVLG 
8X166 

BOX J : 
Rem PUBL3F 

If W6X3O8_0X318_8X28e_6X296_eXO26.wk6XO78 = 1 Then GoTo B0X.4 
GoTo B0X_5 

B0X.4 : 
Rem PUBL3F 

If WeX3O8_eX318_6X280.eX29e_6XO20_wk8XO7e = 1 Then WeX306_eX316_6X28e_6X298_6X028 = 0X078 
Rem PRVLG 

CTRL_W8X308_8X286.6X296.STS.TRANSITI0N.FLG = CTRL_W6X3Oe_6X286_0X298_STS_TRANSITION_FLG + 1 
GoTo BOX_E 

B0X_5: 
Rem PRVLG 

If CTRL_W8X30@_8X288.8X298_STS_TRANS I T I ON.FLG.P 
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II 1 2 8] 

ttn-±s<i? V)V<DM : 0 13-2 
jEa/ffl^/iB^Jas/»ffi^ , /Jg^g)L 3 (fl#f0 1 3 0-2) 



= CTRLW«X30§JX28§^29§_STS_TRANSITIONJLGJ , P Then 

GoTo BOXJ) 
End If 

GoTo BOXJ? 

BOXJ: 
Rem PRVLG 

CTRLJ'§X30«.«3l§_§JS28§JX29§^§«02O0T_VALIDJFLG = True 
GoTo BOXJ 

B0X.7 : 
Rem PRVLG 

CTRLJ'@K30O*298JNGJ ? LG = True 
GoTo BOX_E 

BOXJ: 
End Sub 

Rem *** PRCEND 
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im 1 2 9] 

ttii-^^ MK£>£! : 0 1 4 - 1 
jE^/ai^Xgg^J^^{ffi^j^^cDL 4 (g^jfO 14 0-1) 
Option Explicit " ____ 

Rem 3DEFPUB 
Rem PUB4N4 

Private W§*308_8*3ie_8*288_8*298_8*028 As 8*238 
Rem PUBIN4 

Private W@*3058_@*3158_8*2858_8*2958_8*200@ As 8*2358 
Rem PUB5C4 

Private CTRLJW30O%28@ - .^29@ - STS_TRANSIT10N_FLG As Integer 
Rem PUB5Y4 

Private CTRL3^30OX28O»29@^STSJRANSITI0NJLG^P As Integer 
Rem PUB5B4 

Private CTRL3@«30@_@%28O»29^STS^TRANSITI0N_FLG_PP As Integer 
Rem PUB6F4 

Private CTRL_W@X30O^31O^28@_@»29O^02O0T_VALID„FLG As Boolean 
Rem SDEFEND 

Rem PUB4B4 

Private W@S3008_@S3108_8*280@_8*2908_8*2008 As 8*238 
Rem PUB4N3 

Private W3^8*3 I8_J*288_J*298_@*028 As Integer 
Rem PUB4N2 

' Private W2_8*318_8*288_8*298_8*028 As 8*238 
Rem #DEFPRV 
Rem PRV2T4 

Private W8*30@_8*318_8*288_J*298_8*028 wk As 8*238 
Rem PRV7R4 

Private CTRL_W8*308_8*296_ING_JLG As Boolean 
Rem *PUBKU 

Private CNSJWTJttlOtring As String 

Private CNS_NOT_KUH_lnteger As Integer 

Private CNS_NOT_KUHJoolean As Boolean 

Private CNSJOTJOIlLLong As Long 

Private CNS.NOTJUJO ingle As Single 

Private CNS_NOT_KUHJ)ouble As Double 

Private CNSJWTJCUILYa riant As Variant 

Private CNS_N0OUH_Currency As Currency 

Private CNS_NOT_KUH_Byte As Byte 

Private CNS_NOT_KUHJate As Date 
Rem SPRY2W4 
8*1728 
Rem $PRV2E4 
Rem $PRV4?4 
8*1828 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_8*31@ 8*288_8*298_8*02O*078 0 
BOXJ : 

Rem PRVLG 

If ff8*308_8*318_e*288_e*298_8*028 = CNSJ*0TJOJIL8*23@ And 
Rem PRVLG 

W3_8*318_8*288_J*298_8B028 = 8*078 Then 
GoTo B0X..2 
End If 
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[1130] 

tt$$-±H7 bJVOM : 0 14-2 

jEm/thti/m&ms/mffift/m.?ift<DL a onq-2) 

GoTo boO 

B0X_2: 
Rem PUB IN 

If W§X305«JX315§JX285«J»295§JX2O0S = CNS_N0T_KUH^235@ Then Go To Box J 
Rem PRVLG 

mm 

BOX J : 
Rem PRVLG 

If WiX30ejX3I«_§SI528©JX29§_©X02§_wk O CNS_NOT_KUO*23@ Then 

GoTo B0JL4 
End If 

GoTo B03LB 

B0X_4: 
Rem PRVLG 

W®S30OX31O*28@_@%29O*02@ = W@%3GOS31O*28OS29O*02@_wk 
Rem PRVLG 

W@*300O*310@_@m0O*290O*200@ = ff@K30OX31M*28@_§*29@ @%Q2@ 
Rem PRVLG 

CTRL_ffW30«_§X28i.«X29«_STSJRANSITION_FLG - CTRLJ«X30MX28©JX29§_STSJRANSIT10NJ f LG + 1 
GoTo BOXJE 

B0X_5: 
Rem PRVLG 

I f CTRL_ff@3530@_@*28@_«X29@_STS_TRANSITlON_FLG„P 
= CTRLjm30M«28O»29@_STS_TRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B03L6: 
Rem PRVLG 

CTRL3"@X30OX3]O»28@_@«29OX02O0T_VALID^FLG = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRL_W@%30@_^29@_INGJLG = True 
GoTo BOXJ 

B0X_E: 
End Sub 

Rem *** PRCEND 
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hJMDM :015~1 

fc&/\&ti/mm^/mm*&/i&ftm<» i L 3 (gi#§o 1 5 0 - 1 > 

Option Explicit 
Rem #PEFPUB 
Rem PUB4N3 

Private W@S530@_@X3I@^28@_^29O«02@{@%26@, 6^27@) As Integer 
Rem PUBIN3 

Private W@X305OS3]5O*285O*295@J*200@(@K265@. @%275@) As @K235© 
Rem PUB5C3 

Private CTRL^W6%30O^28OX29@_STS^TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRLjm30@_@%28@_@X29@_STS^TRANSITIONJLGJ As Integer 
Rem PUB5B3 

Private CTRLjm30OX28@^29@^STS_TRANSITI0NJLGJP As Integer 
Rem PUBBF3 

Private CTRL„W^30O«31OX28O%29@_@»02@_N0TJ , ALID_FLG (@S26@, As Boolean 

Rem DEFEND 
Rem *DEFPRV 
Rem PRV2T3 

Private W^30O«31O5S28O*29@_@»02@_wk(@X26@.^27@) As Integer 
Rem PRV7R3 

Private CTRL__W©%30@_@fc29@JNGJ 7 LG As Boolean 
Rem PUBKU 

Private CNSJWTJOJHJnteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private UtiJIax as Integer 
Private Soto_Max as Integer 
Rem $PRV2W3 

%%\m 

Rem $PRV2E3 
Rem SPRV4W3 

mm 

Rem SPRV4E3 
Rem ^DEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub L3_@*3 1 0*280*2 90*0 2@ 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If @%34@ < @%35@ then 
Rem PRVLG 

UtiJIax = %%im 

Rem PRVLG 

SotoJIax = @*276 

End If 
Rem PRVLG 

If @*34@ > @X35@ then 
Rem PRVLG 

UtiJIax = 

Rem PRVLG 

SotoJIax = %%im 
End If 
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h)MDM : 015-2 

jE&/mj]/jfcMm/&mto/mRm<DL 3 (tis^o 150-2) 

UtLCnt = 0 
Soto.Cnl = 0 
Do Until Soto.Cnt = SotoJIax + 1 
UtLCnt = 0 
Rem PRVLG 

If @*34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

1 f @*34@ > @S35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UliJIax + 1 
B0X_1 : 
Rem PRVLG 

If ft@X30OX31OX28OX29OX02« (Gyou. Retu) = CNS_NOT_KUH_Integer Then 

GoTo BQX_2 
End If 

GoTo BOX.E 

B0X_2 : 
Rem PRVLG 

mm 

B0X_3 : 
Rem PRVLG 

If ff@*30O*31O*28O*29OS02Gjyk (Gyou. Retu) O CNSJWTJOIlLInteger Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

^300*3 10*280*290*028 (Gyou, Retu) = W0*3OO*3IO*28O*29O*O2Ok(Gyou. Retu) 
Rem PRVLG 

CTRL3^30@_@«28@_@X29@_STS^TRANSITION_FLG = CTRL_W@X30O»28O%29@_STSJRANSITI0N_FLG + I 
GoTo B0X_E 

B0X.5: 
Rem PRVLG 

I f CTRL Jte*30O*28O*29OTSJl^Sm0NJFLG_P 
= CTRLJ'@X30@_@«28O^29&^STS^TRANSIT10NJ 7 LG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X.J 

B0X_6 : 
Rem PRVLG 

CTRLJ^0O*31O*28O*29O*02O0TJJALIDJ ? LG (Gyou, Retu) = True 
GoTo B0X_E 

B03L7: 
Rem PRVLG 

CTRLjre*30O*29@_lNG_FLG = True 
GoTo BOXJS 

B0X_E: 

UtLCnt = UtLCnt + 1 
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hJUOSl : 0 1 5 - 3 

jEM/&ji/&m&/mmm/m¥ift<DL 3 (ea## 0150-3) 



Rem PRVLG 



If @SK34@ < @*35@ then 
Gyou = UlLCnt 
Reiu = Soto_Cnt 

End If 



Rem PRVLG 



If mm > 8*35® then 
Gyou = Soto_Cnt 
Relu = UtLCnt 

End If 

Loop 

Soto_Cnt * Soto_Cnt + I 
Rem PRVLG 

If @*34@ < 8*350 then 
Gyou = UlLCnt 
Retu = SotoJJnt 
End If 
Rem PRVLG 

I f @S34@ > @K35@ then 
Gyou = Sotojlnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UlLCnt = 0 
Soto_Cnt = 0 
UtLMax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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[113 4] 

{^-±^{7 \*)MD& : 0 1 6 - 1 

Option Explicit — — 
Rem #DEFPUB 
Rem PUB4N4 

Private W§5530®_@*31§_®%28@_®S29®_®!I!02® (§X26®. §3527®) As @%23@ 
Rem PUBIN4 

Private W@X305@_@«315@_@X285O^295O^200@(@%265@, @%275@) As @*235@ 
Rem PUB5C4 

Private CTRLJiX30«JX28MX29§_STSJRANSITION FLG As Integer 
Rem PUB5Y4 

Private CTRL_W®3530®_@SIS28OX29©„STS - TRANSITI0N_FLG_P As Integer 
Rem PUB5B4 

Private CTRL_W®X309_©«28e_®X29®„STS_TRANSITION_FLG PP As Integer 
Rem PUB6F4 

Private CTRLJ^30O^31O«28@_@*29O«02O0TJ ; ALlD FLG (@K26@, @*27@) As Boolean 
Rem #DEFEND 

Rem PUB4B4 

Private W®X300M%310MX280e^®X290«..«X200® («X26«. ®X27« As @*23@ 
Rem PUB4N3 

Private W3_@*31O*28@_@*29§J%02@ <@*268, @*27@) As Integer 
Rem PUB4N2 

' Private W2„W31®_®S528«JX29« - «X028 (§31526®. ®X27§) As @X23@ 
Rem #DEFPRV 
Rem PRV2T4 

Private ff®3530@^31O»28@_@X29O^02@_wk (@*26@, @*27@) As @*23@ 
Rem PRV7R4 

Private CTRLJ'@fc30O*29§JNGJ ? LG As Boolean 
Rem *PUBKU 

Private CNSjNOTJCWLString As String 

Private CNS_NOT_KUH_Integer As Integer 

Private CNS_N0TJOJH_Boolean As Boolean 

Private CNSJOTJCUHJLong As Long 

Private CNSJiOTJOJH.S ingle As Single 

Private CNSJWTJOJHJ)ouMe As Double 

Private CNSJWTJUIH_Va riant As Variant 

Private CNS_NOT_KUH_Currency As Currency 

Private CNS_NOTJCUH_Byte As Byte 

Private CNS_NOT_KUHJ)ate As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Sotojnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SPRY2W4 
@S172® 
Rem $PRV2E4 
Rem SPRV4W4 
§K182§ 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_@5K31@_@»28@_@X29@_@X02@ 0 
Gyou = 0 
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[mi 3 5] 

bJVCOm : 0 16-2 

Retu = 0 "~ ' — " ~" 

Rem PRYLG 

If 8*348 < 8*358 then 
Rem PRVLG 

UtLMax = 8*268 

Rem PRVLG 

SoloJIax = 8*278 

End If 
Rem PRVLG 

If 8*348 > 8*358 then 
Rem PRYLG 

UtLMax = 8*278 

Rem PRVLG 

Sotojiax = 8*268 
End If 
UtLCnt = 0 
SotoJ)nt = 0 
Do Until Soto_Cnl = Sotojiax + I 
UtLCnt = 0 
Rem PRVLG 

If 8*348 < 8*358 l hen 
Gyou = UtLCnt 
Retu = Solojnt 
End If 
Rem PRVLG 

If 8*346 > 8*358 then 
Gyou = Soto.Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtLMax + 1 
BOXJ : 
Rem PRVLG 

If W0*3O0_@*31O*28O*298J*O2@ (Gyou. Retu) = CNS_NOLKUH 8*238 And 
Rem PRVLG 

W3_8*318_8*28®J*298_J*02@ (Gyou, Retu) =63507® Then 
GoTo B0X_2 
End If 

GoTo BOXJ 

BOX J : 
Rem PUB IN 

If W8*3058_8*3158J*2858_@*2958_®*2008 (Gyou, Retu) = CNS_N0T_KUO*235@ Then Go To BoxJ 
Rem PRVLG 

0*178 

BOXJ : 

Rem PRVLG 

If W8*308J*318J*288J*298J*02@j?k (Gyou. Retu) O CNSJ0TJTJH_J*238 Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ : 
Rem PRVLG 

W8*308J*318JX288J*298_@*028 (Gyou. Retu) = ff§*30@ 8*318 ©*28@ 8*29§ «*O20_wk (Gyou, Retu) 
Rem PRVLG 
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[mi 3 6] 

i^im-±^ Y)V<D§L : 0 16-3 
JEM/&t}/ffi&\ft/^mi&/}ftRtf<DL 4 0 16 0-3) 

m3000%3100%280@_@»2900«200@(Gyou,Retu) = W@S30@_@%31O*28O*29@ @*02@ (Gyou. Retu) 
Rem PRVLG 

CTRLJ*@X30O«28@_@X29OTS_TRANSlTI0N_FLG = CTRL_W§X308_@X28OX29@_STSJRANSITI0NJLG + 1 
GoTo BOX_E 

B0X_5 : 
Rem PRVLG 

I f CTRL_m30O»28O%29^STS_TRANSITI0N_FLGJ 
= CTRLJW30O«28O*29@_STS^TRANSITI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL_ff@«300«31@_@X280*290«02@_NOT_VALIDJLG{Gyou t Retu) = True 
GoTo BOX_E 

B0X_7: 
Rem PRVLG 

CTRL3m30O^29@_INGJLG = True 
GoTo BOX_E 

BOX_E: 

UtLCni = UtLCnt + 1 

Rem PRVLG 

I f @S34@ < mm then 

Gyou = Uti_Cnt 

Retu = Soto.Cnt 
End If 

Rem PRVLG 

I f @%34@ > @%35@ then 

Gyou = Soto__Cnt 

Retu = MLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @X34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Soto__Cnt 
End If 
Rem PRVLG 

If @*34@ > mm then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt - 0 
UtLMax = 0 
Soto_Max = 0 
End Sub 
Rem *** PRCEND 
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[til 3 7] 

W^-^^i? WKD® : 0 17-1 

iEM/mi3/mpm/mffift/s&R$[<DL 3 (gfus^o 1 7 0 - 1 ) 

Oplion Explicit ' 
Rem SDEFPUB 
Rem PUB4N3 

Private W6X306_6X3 16_6X28O*296_@X026 (@X26@, @^27@) As Integer 
Rem PUBIN3 

Private W6X3056_6X3156_6X2856_6X2956_6X2006 (6X2656, 6X2756) As 6X2356 
Rem PUB5C3 

Private CTRL3*^30O^28O«29OTS^TRANSlTI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRLJ^30O^28O»29@„STS_TRANSITI0N_FLG_P As Integer 
Rem PUB5B3 

Private CTRLJ"^30O^28O«29OTS_TRANSITI0NJLG_PP As Integer 
Rem PUB6F3 

Private CTRL3@5530O»31O*28O^29O«02O0T^VALlDJLG (@%26@ t 6*276) As Boolean 
Rem #DEPEND 
Rem &DEFPRV 
Rem PRV2T3 

Private W6X306.JX316_6X286_.6X29@_6X026__wk6X076 (6*266, 6X276) As Integer 
Rem PRV7R3 

Private CTRL_W6* 300*2 9@_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJJOTJOJHJnteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJIax as Integer 

Private Sotojlax as Integer 
Rem SPRV2W3 
6X1626 
Rem SPRV2E3 
Rem $PRV4W3 
6X1656 
Rem $PRV4E3 
Rem #DEFEND 

Public Sub Main 0 

Rem #VECREP Private Sub L3_6X316_6*28@_6*296_6*026 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 6X346 < 6*356 then 
Rem PRVLG 

UtiJIax = 6X266 

Rem PRVLG 

Sotojlax = 6*276 
End If 
Rem PRVLG 

If 6X346 > 6X358 then 
Rem PRVLG 

UtiJIax = 6*276 

Rem PRVLG 

Sotojlax = 6X266 
End If 
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113 8] 

h)MDM : 0 1 7 - 2 
jE^/m^3Xffi^/g?fiB^ia#^0L3 (gJfg^Ql 7 0-2) 



UlLCnt = 0 
Soto_Cnt - 0 
Do Until Sotojtot = SotoJIax * I 
UlLCnl = 0 
Ren PRVLG 

IT 9X349 < 6X356 then 
Gyou = UU.Cnt 
Retu = Soto_Cnl 
End If 
Rem PRYLG 

If 3X343 > 8X358 then 
Gyou = Solo_Cnt 
Retu = Uti_Cnt 
End IT 

Do Until UlLCnl = UUJlax * 1 
BOXJ: 
Rem PRYLG 

If ff8X308_8X319_9X288_9X299_8X028 (Gyou. Retu) « CNSJIOT KUHJntcger Then 

GoTo BQX_2 
End If 

GoTo BOX_E 

B0X.2: 
Rei PRYLG 

6X166 
B0X_3: 
Ren PUBL3F 

If ff8*30OX31OX28OX29OX02§_wk§*079 (Gyou. Retu) = I Then GoTo B0X_4 
GoTo B0X.5 

B0X_4: 
Ren PUBL3F 

If ff9X309_JX3]9_9X289_8X299J»028_wkGX079 (Gyou. Retu) - 1 Then ff8X309J*X3I8 8X289 3X298 3X029 (Gyou Retu) = 8X0' 
Ren PRYLG 

CTRLj;eX309_8X288_8X298_STS_TRANSITi0NJ ? LG = CTRLjreX308_9X289 3X299 STS TRANSITION FLG + 1 
GoTo B03LE 

B0X_5: 
Rem PRVLG 

If CTRL_ff§X309„@X289.9X298^STS_TRANSITION_FLG_P 
= CTRL_ffeX309„6X288_8X298_STS_TRANS!TION FLg'pP Then 

GoTo B0X_6 
End If 

GoTo B0JL7 

Rem PRVLG 

If CTRL^9X309.§X289_8X299_STS_TRANSITION^FLG.P 

= CTRLjeX308_§X288_aX298_STS_TRANSITI0NlFLG PP Then 

GoTo B0X_6 
End If 

GoTo BOXJ 

B0X_6: 
Rem PRVLG 

CTRL_W©X3Oe.8X31f.eX280 - 9X299_8XO29_NOT_VALIDJ f LG(Gyou.Relu) = True 
GoTo BOX_E 

B0X_7: 
Rem PRVLG 
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[121 1 3 9] 

ttM-±H? h;KDSJ : o i 7 - 3 

iEm/ftt}/&&m/mffim/m&mcDL 3 (»s#-5t 0170-3) 



Cmj®%mj%M®jmjLG = True 
G0T0 BOXJi 

BOX.E: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 

If @*34@ < §%m then 
Gyou = UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If @%34@ > ®%m then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @%34@ < ®%m then 
Gyou = UtLCnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If 8S34@ > @*35@ then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto.Cnt = 0 
UtiJIax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCENO 
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[H 1 4 0] 

ttB-^t? hJKDM : 0 1 8 - 1 

mm./MJj/mmG/mmm/&&&<DL4 (gJi#^o i 8 o- p 

Option Explicit ~~ ~ 

Rem SDEFPUB 
Rem PUB4N4 

Private TOX308_§X31MX288_8X298_8X028 (0X269. 0X279) As 8X236 
Rem PUBIN4 

Private ff@X305OX3158_8X2858_@X295@_8X2008 (8X2658, 8X2758) As 8X2358 
Rem PUB5C4 

Private CTRL_WW30§JX28i_§X29©_STS - TRANSIT10N_PLG As Integer 
Rem PUB5Y4 

Private CTRLJ§X30t^«28f.SX29§_STSJRANSITIOHJLGJ As Integer 
Rem PUB5B4 

Private CTRLJ6X30O*28©_§a;29§_STS_TRANSITI0N FLG PP As Integer 
Rem PUB6F4 

Private CTRL.We%30i_eX3]OX28OX29MX02@JI0T.VALID_FLG(®X26§. 8X278) As Boolean 
Rem #DEFEND 

Rem PUB4B4 

Private W8X3008_8X3108_8X2808_8X2908_8X2008 (8X268, 8X278) As 8X238 
Rem PUB4N3 

Private W3_.8X318_8X288JX298_8X028 (8X268, 8X278) As Integer 
Rem PUB4N2 

' Private W2_8X318_8X288JX298_8X028 (8X268. 8X278) As 8X238 
Rem SDEFPRV 

Rem PRV2T4 

Private W8X308_8X3I@_8X288_8X298_8X028_wk (8X268, 8X278) As 8X238 
Rem PRV7R4 

Private CTRIjroX308_8X298JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJ*OTJvUH_String As String 

Private CNSJYOTJOJHJnteger As Integer 

Private CNSJiOTJCUOoolean As Boolean 

Private CNSJWTJttJHJLong As Long 

Private CNSJWTJOJH_S ingle As Single 

Private CNS_NOT_KUHJ)ouble As Double 

Private CNSJTOTJOJILVa riant As Variant 

Private CNS_NOTJ(UILCurrency As Currency 

Private CNS_N0T JCUHJBy t e As Byte 

Private CNS_NOTJttJH_Date As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SPRV2W4 
8X172® 
Rem $PRV2E4 
Rem SPRV4W4 
8X1828 
Rem $PRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_8X318_8X288_8X298_8X02@_8X078 0 
Gyou = 0 
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[19 1 4 1 ] 

ttM-^? h)MDM : 0 1 8 - 2 

jE«/a^/BB^/ff<»liW/«[»^rg)L 4 (§1#§0 18 0-2) 

Retu = 0 
Rem PRVLC 

I f @X348 < @*35@ then 
Rem PRYLG 

uiLMax = mm 

Rem PRYLG 

Sotojlax = @%27@ 

End If 
Rem PRYLG 

If mm > @%35@ then 
Rem PRYLG 

UtLMax = ®X27@ 

Rem PRYLG 

Sotojlax = @*26@ 
End If 
UtLCnt = 0 
Soto.Cnt = 0 
Do Until Soto.Cnt = Sotojlax f 1 
Uti_Cnt = 0 
Rem PRYLG 

If @*34@ < @*35© then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRYLG 

If @%34@ > 3X353 then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Utijiax + 1 
BOX J : 
Rem PRYLG 

If W@*30O*3 10*280*290*02® (Gyou, Retu) = CNSJfOTJOJlL@*23@ And _ 
Rem PRYLG 

ff3_@*31O*28O*29O*02@ (Gyou, Retu) = @*07@ Then 
GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
Rem PUB IN 

If W@*305O*315O*285O*295O*200@ (Gyou. Retu) = CNSJ*OTJOJIL@*235i Then Go To Box_3 
Rem PRYLG 

@*17@ 
B0X_3 : 
Rem PRVLG 

If W@S30O*31O*28O*29O*02Ok (Gyou, Retu) O CNSJTOTJKUOX23I Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRYLG 

W@*30O*3 10*280*290*020 (Gyou, Retu) = W§*30O*3IO*28O*29O*02Ok (Gyou, Retu) 
Rem PRYLG 
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[1142] 

ttm-S:^? h)l<DM : 0 1 8 - 3 

iEM/iht}/mm&/mmm/mR : &<DL 4 (gg«i»o iso-3) 

W@*300O*310O*280OS290O*20G8 (Gyou, Retu) = W@*30@_@fc31@ @^O*29O*02@ (Gyou, Retu) 
Rem PRVLG 

CTRL_ff^300%28@_@»29@_STS.TRANS!TIONJLG = CTRL_W@%30O»28O9S29^STS„TRANSITI0N_FLG + 1 
GoTo BOXJE 

BOX J : 
Rem PRVLG 

I f CTRL_W@«30O%28O»29@ - .STS_TRANSITI0N_FLG„P 
= CTRL - W^30O^28O«29@^STS^TRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL3^30@_Q^310»28@_@X290»0200TJ f ALID_FLG(Gvou, Retu) = True 
GoTo BOXJE 

B0X_7: 
Rem PRVLG 

CTRLJ*@K30OK29@_ING_FLG = True 
GoTo BOX.E 

BOX_E: 

Uti_Cnt = UtLCnt + 1 

Rem PRVLG 

If @K34@ < mm then 

Gyou = Uti_Cnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If mm > @%35@ then 

Gyou = Soto_Cnt 

Retu = Uti_Cnt 
End If 

Loop 

Soto_Cnt = SotoJ}nt + 1 
Rem PRVLG 

If @%34@ < mm then 
Gyou = Uti.Cnt 
Retu = Soto_Cnt 
End If 
Rem PRMG 

if mm > mm then 

Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Sotojnt = 0 
Ut i Jlax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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[HI 4 3] 

b )\,0>m : 0 1 9 - 1 

K/mti/m%Wi/mmy®.ft$kv>i- 3 (wm#^o i 9 o - u 

Option Explicit 
Rem 3DEFPUB 
Ren PUB4N3 

Private *©X3Q©_6X31©..eX28©_ex298_eX02© As Integer 
Rem PUB1N3 

Private *&X3058_©X3 I 5G_8X285©_eX295e_6X2008 As 6X2359 
Rem PUB5C3 

Private CTRLjraX309_©X28e_eX296_.STS_.TRANSITI0!LFLG As Integer 
Ren PUB5Y3 

Private CTRLJ©X308^§X28O»29e_STS.TRANSITI0N_FLG_P As Integer 
Rem PUB5B3 

Private CTRLJ^30©_©X288_©X298_STSJ1tANSmONJ ? LGJ>P As Integer 
Rem P0B6F3 

Private CTRLJ'63530§_§X31§_®*28MX29MX02O'0OALID_FLG As Boolean 
Rem $ DEFEND 
Rem 9DEFPRV 
Rem PRV2T3 

Private m30©_.§S31©_.©X28©_©X298_©X02©_wk As Integer 
Ren PRV7R3 

Private CTRL3©X309_8X298JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJiOTJUJHJnleger As Integer 
Rem IPRV2W3 
§55162© 
Rem SPRV2E3 
Rem $PRV4W3 
6X165© 
Rem SPRV4E3 
Rem S DEFEND 

Public Sub Main 0 

Rem #VECREP Private Sub L3_©X31©_©X288_©X298_8X028 0 
BOX J: 
Rem PRVLG 

If ff&X30MX31©_©X28©_8X29©_©X02© = CJJSJWTJCUHJnteger Then 

GoTo BQX_2 
End If 

GoTo BOXJ 

B0X.2: 
Rem PRVLG 
©XI 6© 

B0X.3: 
Rem PRVLG 

If W©X308_©X31©_©X28©_eX298_©X02©_wk O CNS_NOT_KUHJnteger Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X.4: 
Rem PRVLG 

W8X3oe_©x3ie_©x28e_ex298_exo2e = W©x308_ex3i©_ex289_©x29©_©x02©_wk 

Rem PRVLG 

CTRL_W8X30©_©X289.8X298.STS_TRANSITI0NJ ? LG = CTRLJ©X308__©X288_8X298_STS_TRANSmONJ : LG + 1 
GoTo BOX_E 

B0X_5: 
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[H 1 4 4] 

WKDffl :019-2 
KXffi^./BB^J^X^ffi^/igffaiCDL 3 ('i£Jg#*iO 1 9 0-2) 



Rem PRVLG 

I f CTRL3^30OSK28O»29@_STS_TRANSITJ0N_FLG_P 
= CTRLjeX30§JX28§JX29§_STSJRANSITIONJLGJ>P Then 

GoTo B0X_6 
End If 

GoTo BQX_7 

B0X_6: 
Rem PRVLG 

CTRLJ«X30§.«X31MX28§^©X29MX02O0T_VALID_FLG = True 
GoTo BOX_E 

BOX.,7 : 
Rem PRVLG 

CTRL_W§%30MX29§_INGJPLG = True 
GoTo B03LE 

BOX_E: 
End Sub 
Rem *** PRCEND 
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[@14 5] 

ttft-£*V? b)V<DM : 0 2 0-1 

K/m^/BB^ai/ffttafe/fft^oL 4 (gis^o 200-D 

Option Explicit — - 

Rem #DEFPUB 
Rem PUB4N4 

Private W@X30OX31OX288_@X29OX02@__Sum As 0X23@ 
Rem PUBIN4 

Private W@X305OX315OX285OX295@_8X20Q@ As @X235@ 
Rem PUB5C4 

Private CTRLJW30§_§X28§JSI529§JTS_TRANSIT10NJLG As Integer 
Rem PUB5Y4 

Private CTRLJf§%30iJX28e_©X29§.STSJRANSIT10NJ?LGJ As Integer 
Rem PUB5B4 

Private CTRLJ , 9X30§_©X28@.§*29§„STS_TRANSIT10NJ ? LG_PP As Integer 
Rem PUB6F4 

Private CTRLJ'@SK30@_@«31O»28O3529@_^02@_N0T^VALID_FLG As Boolean 
Rem #DEFEND 

Rem PUB4B4 

' Private W@X300OX3l0@_@X280OX290OX200@ As @X23@ 
Rem PUB4N3 

Private W3_§X31OX28@_@X29OX02@ As Integer 
Rem PUB4N2 

' Private W2.JX31OX28@_JX29OX02@ As @X23@ 
Rem #DEFPRV 
Rem PRV2T4 

Private W@X30MX31OX28OX29OX02@_wk As @X23@ 
Rem PRV7R4 

Private CTRL_W8X30@_@X29@JNGJ ? LG As Boolean 
Rem *PUBKU 

Private CNSJWTJOIH_String As String 
Private CNSJfOTJCUHJnteger As Integer 
Private CNS_NOT_KUH_Boolean As Boolean 
Private CNSJTOTJCUILLong As Long 
Private CNSJiOTJ(UH_S ingle As Single 
Private CNSJiOTJOJOouble As Double 
Private CNSJfOTJCUH_Varianl As Variant 
Private CNS_NOT_KUH_Currency As Currency 
Private CNSJTOTJttJOyte As Byte 
Private CNSJTOTJOJOate As Date 
Rem SPRV2W4 

mm 

Rem $PRV2E4 
Rem IPRV4W4 

mm 

Rem SPRV4E4 
Rem ^DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L4_@X31OX28@_@X29@_8X02@ 0 
BOX J : 
Rem PRVLG 

If W8X30MX31OX28OX29OX02@_Sum = CNSJIOTJHJMX23© And _ 
Rem PRVLG 

W3_§X31«_«X28G_§X29§_«X02« = @X07@ Then 
GoTo B0X_2 
End If 
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[HI 4 6] 

tt0-£'<9 h)l<DM : 0 2 0-2 

K/mii/sffim/mmm/ififti&<Di« 4 (ggft^o 200-2) 

G0T0 B0X_E 

B0X_2: 
Rem PUB IN 

If W@*305O*3 150*2850*2950*200® = CNS_N0T_KUO*235@ Then Go To Box J 
Rem PRVLG 

BOX J: 
Rem PRVLG 

If W@*30O*31O*28O*29O*02Ok O CNS_N0TJUJO*23@ Then 

G0T0 B0X_4 
End If 

G0T0 B0X_5 

B0X_4: 
Rem PRVLG 

W@S30O*31O*28O*29O*02@_Sum = W@*30O*31O*28O*29O*Q2@_wk 
Rem PRVLG 

W2_@*3 10*280*290*02® = W9% 300*310*280* 2 90*0 2@_wk 
Rem PRVLG 

CTRLJ*@*30O*28O*29@_STS_TRANSITI0N_FLG = CTRLJ'@*30O*28O*29OTS_TRANSITI0N^FLG + I 
GoTo BOX_E 

BOX J: 
Rem PRVLG 

if CTRLJ@*30O*28O*29OTS_TRANSIT10NJLGJ 
= CTRL_W@*30O*28O*29@_STS_TRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6: 
Rem PRVLG 

CTRL_ff@*30O*31O*28O*29O*02O0T_VALID - FLG = True 
GoTo BOX_E 

B0X_7 : 
Rem PRVLG 

CTRLJT8*3QO*29@JNG_FLG = True 
GoTo B0X_E 

B0X_E : 
End Sub 

Rem m PRCEND 
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[IE! 1 4 7] 

ft»-^4^ h;i/C0S! : 0 2 1-1 

K/a^/ByjaS/^ffi^/ig^aiOLS 0 2 10-1) 

Option Explicit ~ 
Rem SDEFPUB 
Rem PUB4N3 

Private W©%30§_8X31MX28§_§X29M*02« As Integer 
Rem PUBIN3 

Private W@X305OX315OS285OX295O*200@ As ©%235@ 
Rem PUB5C3 

Private CTRLJ§X30«.iX28§ - §X29§_STS«TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRLjr«X30MX28MX29§JTSJRANSITI0NJPLGJP As Integer 
Rem PUB5B3 

Private CTRLJtX30i_W28§JX2M_STSJRANSITI0NJLG_PP As Integer 
Rem PUB6F3 

Private CTRLJ§X30«_fX31i_§X28§_§X29MX02§J»OT M VALIDJLG As Boolean 
Rem SDEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W«X30«_©X3l§_«K28M«9§_«X02§_wkW07§ As Integer 
Rem PRY7R3 

Private CTRLJ"«X30i_§X29«_INGJ ? LG As Boolean 
Rem PUBKU 

Private CNSJWTJCUlLInteger As Integer 
Rem $PRV2W3 
6X1629 
Rem SPRY2E3 
Rem SPRV4W3 

mm 

Rem SPRV4E3 
Rem #DEFEND 
Public Sub Main 0 

Rem tVECREP Private Sub L3Jtt310_W28©_§X29OX02©0 
BOX J : 
Rem PRVLG 

If W«K30MX31«JX28§J3K29©JX02« = CNSJWTJOJHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOXJE 

BOX J : 
Rem PRVLG 

§*i6d 

BOX J: 
Rem PUBL3F 

If WW30«JX31MX28§_tX29§JX02§_wk§J!07§ = 1 Then GoTo BOXjl 
GoTo B0X_5 

B03L4 : 
Rem PUBL3F 

If W«X30MX31MX28§JX29ejS502©_wk©%07« = I Then W6X30OX3lOX28O*29§.3X02« = @*07@ 
Rem PRVLG 

CTRLJ@X30OX28@_@«298 - STS_TRANSITI0N_FLG = CTRLJ«X30§JX28©JX29iJTS_TRANSITIONJLG f 1 
GoTo BOO 

BOX J : 
Rem PRVLG 

If CTRL_WiX30Qil528e_QX29e_STS_TRANS ITI0NJLG_P 
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tt&-±*<i? h)MDM : 0 2 1 - 2 

K/at>/&&m/mm&/t%?im(OL 3 (t?s## 0210-2) 



= CTRLJ6X30OX28MX298.STS.TRANSITI0NJLGJP Then 
G0T0 BOXJ 

End If 

G0T0 B0X_7 

BOX J : 
Rem PRYLG 

CTRLJ@X30OX31§_eSK28§_eX29OX02g_N0T_VALIDJLG * True 
G0T0 BOXJ 

B0X.7: 
Rem PRVLG 

CTRLJ@*30O*29§JNGJLG = True 
G0T0 BOXJ 

BOXJ: 
End Sub 

Rem *** PRCEND 
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[HI 4 9] 

MKDM : 0 2 2-1 
K / ffi ^/SjfiJi/^fflt L 4 (lfJl#^ 0 2 2 0 - 1 ) 

Option Expl ici I ' 
Rem SDEFPUB 
Rem PUB4N4 

Privale W@£3Q@_8*31@_@*28@_@*29O*02Oum As ®*23@ 
Rem PUBIN4 

Private W@*305O*3 15@_@*285@_e*295@_@*200@ As @%235@ 
Rem PUB5C4 

Private CTRLJ@*30O*28O*29OTS^TRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Privale CTRL.W@*30O*28O*29@_STS^TRANSITI0N_FLGJ As Integer 
Rem PUB5B4 

Private CTRLJ*@*30O*28O*29OTS_TRANSlTI0N_FLG_PP As Integer 
Rem PUB6F4 

Private CTRL_TO30O*31O*28O*29O*02O0TJ f ALIDJLG As Boolean 
Rem #DEFEND 
Rem PUB4B4 

' Private W@*300O*310O*280O*290O*200@ As @*23@ 
Rem PUB4N3 

Private W3_@*3 10*280*290*02® As Integer 
Rem PUB4N2 

' Private ff2_J*3 10*280*290*02® As @*23® 
Rem SDEFPRV 
Rem PRY2T4 

Private ff@*30O*3IO*28O*29O*02Ok As ®*23® 
Rem PRV7R4 

Private CTIU,Jfr@S30O*29@JNGJ ? LG As Boolean 
Rem *PUBkTJ 

Private CNS_NOTJO)H_String As String 

Private CNSJWTJttJHJnteger As Integer 

Private CNSJJ0TJOJH_Booiean As Boolean 

Private CNS_N0TJOJH_Long As Long 

Private CNSJWTJOJILS ingle As Single 

Private CNSJWTJttJILDoubie As Double 

Private CNSJWTJvUHJV'ariant As Variant 

Private CNS_NOT__KUH_Currency As Currency 

Private CNS_N0TJOIH_Byte As Byte 

Private CNSJWTJOJOate As Date 
Rem SPRV2W4 
@*172@ 
Rem $PRV2E4 
Rem $PRV4ff4 

mm 

Rem $PRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L4_@*3 10*280*290*020*070 0 
BOX J : 
Rem PRVLG 

If ff@*30®_©*31O*28@_@*29O*02@_Sum = CNS_N0TJOJH_@*23@ And . 
Rem PRVLG 

W3_@X3J@_@*28@_®*29@_@*02® = 6*07® Then 
GoTo B0X_2 
End If 
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[HI 5 0] 

ttB-£*V? h)l<DM : 0 2 2 -2 

K/mi3/&9t&/Gm&/m9im<DL 4 (gg#^o 220-2) 

G0T0 BOO ~ 

BOX J : 
Rem PUB IN 

If TtXS05l M iXSI5MX285«.§X295t_tX200§ = CNS.NOTJCUH ©3S235I Then Go To Box_3 
Rem PRVLG 

BOO : 
Rem PRVLG 

If ff§5S30©_§X3lOX28©.§X29O«02@_wk O CNSJ0T_KUH_@X23§ Then 
G0T0 B0X_4 

End If 

G0T0 BOO 

BOX .4: 
Rem PRVLG 

W@*30O*31O*28@_@*29O*02@_Suiii = W@%30@ @*31@ @*28@_@S29@_@X02@ wk 
Rem PRVLG 

W2_8X31«JX280JX290_§XO2« = WWJ30«_fiX31« - «X28MX29«JX02» wk 
Rem PRVLG 

CTRLJ"@X30OX28OX29@_STS_TRANSITI0N_FLG = CTRLJT§X30@ 8X280*29©J5TS TRANSITION JLG + 1 
GoTo BOO 

BOX J : 
Rem PRVLG 

I f CTRL jra530O*28O*29@_STS JTtANS I T 1 0N_FLG J> 

= CTRl_WeX30MX28«_©%29e_STSJRANSITIONJLGJP Then 
GoTo BOO 
End If 

GoTo BOO 

BOO : 
Rem PRVLG 

CTRL L .W§X30©_«X31i.iX28§_W298JX02O0T.VALIDJFLG = True 
GoTo BOO 

BOO : 
Rem PRVLG 

Cmjr§X30«_«K29flJNGJFLG = True 
GoTo B0X_E 

BOO: 
End Sub 

Rem *** PRCEND 
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[Hi 5 1 1 

M^-±^<i7 h)ls<DM : 0 2 3-1 

K/ / a^/iB^/ / qfflfi|g / /jaai«ioL 3 cg@#^o 230-D 

Option Explicit ' " 

Rem 3DEFPUB 
Rem PUB4N3 

Private W§X30§^§»3I§.«X28MX29MX02e(t«26©, W27§) As Integer 
Rem PUBIN3 

Private WIX305©_§X315©_eX285«_OK295«JX200©(§X265§. ©X275« As @S235@ 
Rem PUB5C3 

Private CTRLW©X30§JX28®JX29©.STS.TRANSITIONJLG As Integer 
Rem PUB5Y3 

Private CTRLJ*^30O«28O«29@_STS_TRANSITI0N FLG_P As Integer 
Rem PUB5B3 

Private CTRLJ@X30@_@X28O*29@^STS_TRANSITI0N_FLG_PP As Integer 
Rem PUB6F3 

Private CTRLJ'@SS30Oas31O%28@_@X29§_eX02O0T_VALID FLG(@%26@. 8K27G) As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W©X30SJX318_§X28«_§X29«_«X02«_wk (®X26«, W27« As Integer 
Rem PRV7R3 

Private CTRLJMX30§_§X29§JNGJ ? LG As Boolean 
Rem PUBKU 

Private CNSJWTJOJHJnteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Sotojnt as Integer 
Private Utijfax as Integer 
Private SotoJIax as Integer 
Rem SPRV2W3 

mm® 

Rem IPRV2E3 
Rem SPRV4W3 

Rem IPRV4E3 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub L3_§X318_«%28§_«%29OX028 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 8X340 < 6X350 then 
Rem PRVLG 

UtiJIax = 8X260 

Rem PRVLG 

SotoJIax = 0X270 
End If 
Rem PRVLG 

If 0X340 > 0X350 then 
Rem PRVLG 

UtiJIax = 8X27® 

Rem PRVLG 

SotoJIax = 0X268 
End If 
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[mi 52] 

tttk-&'<>9 b)UDM : 0 2 3-2 

K/ffi*/KW*/«ffi&/#JMS<BL 3 {«a»#0 2 3 0-2) 
UtLCnt = 0 
Soto_Cnt = 0 
Do Until Soto.Cnt = Sotojfax + 1 
UtLCnt = 0 
Rem PRVLG 

If @%34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @X34® > @*358 then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Utijtax + 1 
B0X_1 : 
Rem PRVLG 

If W@!^O*31O*28OS29@_@*02@ (Gyou, Retu) = CNS_NOLKUILInteger Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

B0X.2: 
Rem PRVLG 

mm 

BOX J: 
Rem PRVLG 

If W§X30§JX31MX28ejX29« - .§X02«_wk (Gyou. Retu) O CNSJlOT_KUIL©S23e Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X.4: 
Rem PRVLG 

W©X30MX31§_§X28MX29B_#X02« (Gyou. Retu) = W@X30O*31O*28O*29@_@%02@jvk (Gyou. Retu) 
Rem PRVLG 

CTRL3@X30OX28OX29@_STS_TRANSITI0N_FLG = CTRLJ@%30OX28OX29@^STS_TRANSITI0NJLG + 1 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

If CTRL^W@X30OX28OX29^STS_TRANSITI0NJLG^P 

= CTRL3@X30§_@X28O«29@ - STS_TRANSlTI0NJLGJP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL_W@X30OX31OX28@_@X29OX02O0LVALIDJLG (Gyou. Retu) = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRLjre*30OX29e_ING_FLG = True 
GoTo BOXJ 

BOX J: 

UtLCnt = UtLCnt + I 
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115 3] 

ttm-±^P h)l><DSl : 0 2 3-3 



Rem PRVLG 

If 0S34@ < mm then 
Gyou = UtLCnt 
Retu = Soto_Cnt 

End If 

Rem PRVLG 

If ©3534© > @S35@ then 
Gyou = Sotojnt 
Retu = UtLCnt 

End If 

Loop 

SotoJJnt = Soto_Cnt f 1 
Rem PRVLG 

If @*34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If @X34@ > ®%m then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 

Retu = 0 

UtLCnt = 0 

Soto^Cnt = 0 

UtLMax = 0 

Soto_Max = 0 
End Sub 
Rem *** PRCEND 
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ttm-^L^i? h)MDm : 0 2 4-1 

K/mt>/&pm/mmm/mftmv>i* 4 (gggg o 2 4 o - 1 > 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W8X306_8X318_8X288_8X298_8X028_Sum (8X268, 8X278) As 8X238 
Rem PUB1N4 

Private W8X3058_8X3158_8X2858_8X2958_8X2008 (8X2658, 8X2758) As 8X2358 
Rem PUB5C4 

Private CTRL_W8X30MX28M3S29@_STS.TRANSITION_FLG As Integer 
Rem PUB5Y4 

Private CTRL_W8X308_8X28e_8X298_STS TRANSITION FLG.P As Integer 
Rem PUB5B4 

Private CTRL_W8a530O^28OX298_STS_TRANSITI0NJ ? LG PP As Integer 
Rem PUB6F4 

Private CTRL.W8«30OX318^28MSIS29MX02O0T VALIDJLG (8X268. 8X278) As Boolean 
Rem SDEFEND 

Rem PDB4B4 

Private W8X3008_.8X3108_8X2808__8X2908_8X2008 (8X268. 8X278) As 8X238 
Rem PUB4N3 

Private W3JX318_8X288_8X298JX028 (8X268. 8X278) As Integer 
Rem PUB4N2 

Private W2_8X318_8X288_8X298_8X028 (8X268. 8X278) As 8X238 
Rem #DEFPRV 

Rem PRV2T4 

Private W8X308__§X318_8X288_8X298_8X028_wk (8X268, 8X278) As 8X238 
Rem PRV7R4 

Private CTRLJ»X308_8X298JNGJ?LG As Boolean 
Rem *PUBKU 

Private CNSJWTJOJlLString As String 
Private CNS_NOTJUJIUnteger As Integer 
Private CNS_NOT_KUH_Boolean As Boolean 
Private CNSJWTJCUILLong As Long 
Private CNSJWTJMLS ingle As Single 
Private CNSJJOTJCUHJtouble As Double 
Private CNS.NOTJCUH_Variant As Variant 
Private CNSJIOTJOJILCurrency As Currency 
Private CNSJJOTJvMLByte As Byte 
Private CNS_NOTJttJHJ)ate As Date 
Private Gyou as Integer 
Private Retu as Integer 
Private UtLCnt as Integer 
Private Soto_Cnt as Integer 
Private Utijfax as Integer 
Private Sotojlax as Integer 
Rem IPRV2K4 
8X1728 
Rem $PRV2E4 
Rem $PRV4W4 
8X1828 
Rem SPRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L4_8X318_8X288_8X298_8X028 0 
Gyou = 0 
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ttB-^^tr b)U(DM : 0 2 4-2 
K/a^XSB^y^^^^QL 4 (*g*J#^ 0 2 4 0-2) 



Retu = 0 — 

Rem PRVLG 

If 0*346 < @*35@ then 
Rem PRVLG 

UtLMax = @*26@ 

Rem PRVLG 

sotojiax = mm 

End If 
Rem PRVLG 

I f @*34@ > @*35@ then 
Rem PRVLG 

UtLMax = 0*2 76 

Rem PRVLG 

Sotojiax = 6*266 
End If 
UlLCnt = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = Sotojiax * 1 
Uti_Cnt = 0 
Rem PRVLG 

If 0*346 < 0*356 then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If 0*340 > 0*350 then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until Uti.Cnt = UtiJIax 4- 1 
BOX J: 
Rem PRVLG 

If W6*3O0jmi0_©*286_©*296_0*O2@_Sum (Gyou. Retu) = CNS_NOTJOJO*230 And _ 
Rem PRVLG 

W3_0*31@_0*280_0*290_0*O20 (Gyou, Retu) = @*07@ Then 
GoTo B0X_2 
End If 

GoTo BOX_E 

— BOX 2 »- - . . ... ... 

Rem PUB IN 

If W@*305O*3 150*2850*2950*2000 (Gyou, Retu) = CNS_NOTJ(UIL0*235@ Then Go To Box_3 
Rem PRVLG 



BOX J : 
Rem PRVLG 

If W8*30O*31O*286_@*29O*02Ok (Gyou, Retu) O CNS_NOT KUO*230 Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

W@*300*310*280*296„§*020um(Gyou, Retu) = ff0*3O0_0*310_0*28@_@*290_@*O20_wk (Gyou. Retu) 
Rem PRVLG 
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ttm~±H7 h)V<D§£ : 0 2 4-3 

K/mti/&mii/mmm/m&m<D'L 4 (ga^^o 240-3) 

W2_@S3 10*280*290*02® (Gyou. Retu) = W@X300*3]0*280S290*020k(Gyou, Relu) 
Rem PRYLG 

CTRLJ'@«30OX28O«29OTS„TRANSITI0N_FLG = CTRL_W@SK30OX28O»29OTS^TRANSITI0NJLG + 1 
GoTo BOX_E 

BOX J : 
Rem PRVLG 

I f CTRL J§X30MX28OX29§_STS_TRANSIT10N_FLGJ > 
= CTRLjm30OX28OX29@_STS_TRANSITI0NJLG„PP Then 

GoTo BOX J 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL J*@B30O*3 10*280*290*02® JWT_YAL!D_FLG (Gyou, Retu) = True 
GoTo BOX.E 

B0X_7 : 
Rem PRVLG 

CTRLjra*30OX298JNG_FLG = True 
GoTo BOX_E 

BOX J: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 

If @*34® < mm then 

Gyou = Ut i_Cnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If @*34@ > mm then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto.Cnt = Soto.Cnt + 1 
Rem PRVLG 

If 93348 < @*35@ then 

Gyou = Uti_Cnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG ... 
If @*34@ > @X358 then 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
UtLMax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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[HI 5 7] 

ttm-£^t7 bJMDSl : 0 2 5 -1 
K/miQ/R¥iti/m&G/tltfima>L 3 (ggis*f o 250-D 

Option Explicit 
Rem #DEFPtIB 
Rem PUB4N3 

Private W@»30O»3lO»28OX29@_@X028(©«26@.@X27@) As Integer 
Rem PUBIN3 

Private V©X305§.§X3I5MX285§JX295§_§X200« (@*265@, @$275@) As @S235@ 
Rem PUB5C3 

Private CTRLJiX30MX28§JX29«JTSJRANSITIONJLG As Integer 
Rem PUB5Y3 

Private CTRL„ffiX30§_§SI528MX29§.STSJRANSlTlONJLGJ As Integer 
Rem PUB5B3 

Private CTRLJiX30MX28MX29«_STSJRANSITIONJLGJ > P As Integer 
Rem PUB6F3 

Private CTRLJ@X30MJ531O*28@_§X29O*02O0T_VALID_FLG(®SI526@ I @X27§) As Boolean 
Rem 3DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private V«X30§_®X3l«_®X28§.8X29§.©X02i - wkeX07fl (@*26@, @%278) As Integer 
Rem PRV7R3 

Private CTRL_W@X308_GX29§JNG_JLG As Boolean 
Rem PUBKU 

Private CNSJIOTJttlHLInteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private UtLCnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJIax as Integer 

Private Soto_Max as Integer 
Rem $PRY2W3 
%% 1628 
Rem IPRV2E3 
Rem SPRV4V3 
9X1659 
Rem $PRV4E3 
Rem #DEFEND 

Public Sub MainO 

Rem #YECREP Private Sub L3_8*31§_eX28O*29§_©X02a 0 

Gyou = 0 

Retu * 0 
Rem PRVLG 

If @*34@ < @*35@ then 
Rem PRVLG 

UtiJIax = @*26@ 

Rem PRVLG 

Soto.Max = W>in 

End If 
Rem PRVLG 

If @*34@ > @%35@ then 
Rem PRVLG 

un_Max = mm 

Rem PRVLG 

soiojiax = mim 

End If 
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[HI 5 8] 

h;UCDS : 0 2 5-2 

K/mi]/&&m/!$mG/tfiR?3i<DL 3 (ggjwo 250-2) 

Uli.Cnl = 0 
Soto_Cnl * 0 
Do Until Soto.Cnt = SotoJIax + I 
UtLCnt s 0 
Rem PRVLG 

If mAQ < 9X356 then 
Gyou = Utl_Cnl 
Retu - Soto_Cnl 
End If 
Ren PRVLG 

IT 6X349 > 3X356 then 
Gyou ■ Solojtot 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Ulijiax + I 
BOXJ: 
Rem PRVLG 

IT %eX30e_e*3ie_6X28e_6X296_6X02§ (Gyou, Retu) = CNSJ*OTJvUH_lnleger Then 

G0T0 B0X_2 
End U 

G0T0 BOXJ 

B0X_2: 
Rem PRVLG 
6XI66 

BOX J: 
Rem PUBL3F 

If ffeX3Ge_6X319_6X286_&X29e_eX02e_wkeX07e (Gyou, Retu) = I Then GoTo B0X_4 
G0T0 B0X_5 

BOXjt: 
Rem PUBL3F 

If ff6X30e - §X3I6„eX28§_§X29©_6*02e_wk6JK07© (Gyou, Retu) = l Then W6X3 06_§X3 l6_6X28e_eX296_6X02e (Gyou. Retu) =6X0' 
Rem PRVLG 

CTRL_W6X30e_eX286_6X296_STS_TRANSm0ILFLG = CTRL,W6X30e_§X28e„6X29e_STS_TRANSlTI0N_FLG 4 l 
GoTo BOX J 

BOXJ: 
Rem PRVLG 

I f CTRL_V6X30e.eX28MX29e_STS.TRANSITION_FLG.P 
= CTRL - .W6X30e_§X288.eX299_STS_TRANSITI0N_FLGJP Then 

GoTo B0X_6 
End If 

GoTo B0JL7 

B0X_6: 
Rem PRVLG 

CTRLjeX3O6_0X310_eX286_6X298^eXO26^NOO , ALID_FLG (Gyou, Retu) = True 
GoTo BOXJ 

B0JL7: 
Rem PRVLG 

CTRL_ff6X308_6X299JNG_FLG » True 
GoTo B0X_E 

BOXJ: 

UtLCnt = UtLCnt + I 

Rem PRVLG 

_1" " " If 6X346 < 6X356 then 
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Gyou = UtLCnt 
Relu = Soto_Cnl 
End If 

Rem PRVLG 

If @X34@ > @%35@ then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Sotojlnt = Soto_Cnt + 1 
Rem PRVLG 

If @%34@ < ®%m then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @*348 > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 

Retu = 0 

UtLCnt = 0 

Soto_Cnt = 0 

Utijiax = 0 

Soto_Max = 0 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private W@X30OX3l©_@X28O*29OX02@_Sum{@X26@, @%27@) As @X23@ 
Rem PUB IN 

Private ff@X3O5OX315©_@X285@_§X2950_@X2OO@(@X265@. @X275@) As ©X2359 
Rem PUB5C4 

Private CTRLjr§X30«_©X28MX29§JTS_TRANSITIONJLG As Integer 
Rem PUB5Y4 

Private CTRLJT@X30O*28OX29©_STSJ , RANSIT10N_FLGJ > As Integer 
Rem P0B5B4 

Private CTRL.W§X30©_iX28e_§X29§JTS - TRANSITIONJLGJ , P As Integer 
Rem PUB6F4 

Private CTRLJ§%30§_«X3iejX28§^§X29© w §X02iJiOT_VALIDJLG (@X26@, 8X27@) As Boolean 
Rem ^DEFEND 
Rem PUB4B4 

' Private W©X300©_©X310©_©X280©_©X290©JX200©(©X26©, ©X27©) As @X23@ 
Rem PUB4N3 

Private W3_©X31©_.«X28©JX29©_©X02e(©X26©,©X27«) As Integer 
Rem PUB4N2 

' Private W2_©X31©_©X28©_©X29©JX02©(«X26© f 9X27©) As @X23@ 

Private Gyou as Integer 

Private Retu as Integer 

Private UtLCnt as Integer 

Private Sotojnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SDEFPRY 
Rem PRV2T4 

Private m30©_©X3ie_.©X28©_©X29©_©X02e_wk (§X26§, @X27@) As ©X23© 
Rem PRV7R4 

Private CTRLJV@X30OX29@_JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJWTJOJH_String As String 
Private CNSJWTJCUHJnteger As Integer 
Private CNS_NOTJ(UH_Boolean As Boolean 
Private CNSJTOTJOJILLong As Long 
Private CNS_NOT_KUH_S ingle As Single 

Private CNSJIOTJtUILDouble As Double ■ - 

Private CNSJIOTJOJELVa riant As Variant 
Private CNSJIOTJCWLCurrency As Currency 
Private CNSJTOTJOJILByte As Byte 
Private CNS_NOTJCUHJ)ate As Date 
Rem SPRV2W4 

mm 

Rem SPRV2E4 
Rem $PRV4W4 
©XI 82© 
Rem SPRV4E4 
Rem #DEFEND 
Public Sub Main 0 

Rem SVECREP Private Sub L4_©X31©_8X28©_§X29©_6X02©_9X07©0 
Gyou = 0 
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Retu = 0 
Rem PRVLG 

If 6X348 < @X358 then 
Rem PRVLG 

utLMax = m^m 

Rem PRVLG 

SotoJIax = @X27@ 
End If 
Rem PRYLG 

If @X34@ > @X35@ then 
Rem PRVLG 

UtLMax = @X278 
Rem PRVLG 

SotoJIax = @X26@ 
End If 
UtLCnt = 0 
Soto_Cnt = 0 
Do Until Sotojnt = SotoJIax + 1 
UtLCnt = 0 
Rem PRVLG 

If @%34@ < @X35@ then 
Gyou = UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

I f @X34@ > @X35@- then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt - UtLMax 4 1 
BOXJ: 
Rem PRVLG 

If W@X30OX3lOX28OX29OX02Oum (Gyou, Retu) = CNS_N0TJOJH_@X23@ And _ 
Rem PRVLG 

W3„eX31O*28O*29O*02@ (Gyou. Retu) = @X07@ Then 
GoTo B0X_2 
End If 

GoTo BO)LE 

B0)L2: - - - - •— 

Rem PUB IN 

If ff@X305OX315OX285OX295OX200@ (Gyou, Retu) = CNS_N0TJCML@X235@ Then Go To Box_3 
Rem PRVLG 

8X1 7@ 
B0X_3 : 
Rem PRVLG 

If WG*30O*31OX28OX29OX02©_wk (Gyou, Retu) O CNS_N0TJUJIL8X23@ Then 

GoTo B0X_4 
End If 

GoTo BOXJ 

B0X_4: 
Rem PRVLG 

W@X30OX31OX28@_@X298_@X028_Sum (Gyou, Retu) = W8X30OX318_@X28OX29@_@X028_wk (Gyou. Retu) 
Rem PRVLG 
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W2J*3 l§_«X28«_§M98_©X02e (Gyou. Retu) = ff@S5308_@X310X280^29@_@*02@_wk(Gyou, Retu) 
Rem PRVLG 

CTRL_W@SIS30OX28OS!29@_STS - TRANSITI0N_FLG = CTRL_W«X30MX28®_8X29§ M STS_TRANSIT10NJLG + 1 
GoTo BOX J 

B0X_5 : 
Rem PRVLG 

1 f CTRL_W©X30O*28OX29e_STS_TRANSITI0N.FLGJ 
= CTRL_WeX30O*28«„«X29@.STS - TRANSITI0N_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0JL7 

B0X_6 : 
Rem PRVLG 

CTRLJT«X30MX31§JX28©JX29§_«X02©J<OTJUIDJLG (Gyou, Retu) = True 
GoTo B0X_E 

B0X_7 : 
Rem PRVLG 

CTRL„WeSK30@„@X29§.ING - FLG = True 
GoTo B0X_E 

B0X_E: 

UtLCnt = Dtijtot + 1 

Rem PRVLG 

I f @*34@ < @*35@ then 

Gyou = UtLCnt 

Retu = Soto__Cnt 
End If 

Rem PRVLG 

If @%34@ > @%35® then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto.Cnt = Soto_Cnt + 1 
Rem PRVLG 

If mm < @S35@ then 

Gyou = UtLCnt 

Retu = Soto_Cnt 
End If 

. Rem. PRVLG .. - - 

If mm > @*35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
UtLCnt = 0 
Sotojnt = 0 
UtiJIax = 0 
SotoJIax = 0 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W0X3OO&3IOX28OX29OXG2® As Integer 
Rem PUBIN3 

Private W«X305O*3 15OX285OX295OX200® As 0X235® 
Rem PUB5C3 

Private CTRL3W30»J5K28OX29i_STSJRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRLJ§X30§JX28MX29©_STS_TRANSITI0NJ ? LGJ > As Integer 
Rem PUB5B3 

Private CTRL_W®SB30§_IX28OX299_STS„TRANSITI0NJLG„PP As Integer 
Rem PUB6F3 

Private CTRL.ff§X30iJX31«JX28§JM9«_fX02§JNOT - VALIDJ'LG As Boolean 
Rem ^DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W®X30OX31@_@X28@_®X29@_@X02@_wk As Integer 
Rem PRV7R3 

Private CTRL_W@X30@_@X29@_INGJ ? LG As Boolean 
Rem PUBKU 

Private CNS_NOTJUJHJnteger As Integer 
Rem $PRV2W3 
8X1628 
Rem $PRV2E3 
Rem $PRY4ff3 

®xi65@ 

Rem $PRV4E3 
Rem #DEFEND 
Public Sub MainO 

Rem tVECREP Private Sub L3_«X31OX280JX29®_flX02® 0 
BOXJ: 
Rem PRVLG 

If WOX30t.tX3 1OX28OX29OX02® = CNSJWTJvUHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOXJ 

B0X_2: 

Rem PRVLG - - --- - — - - • - - - 

@X16@ 
BOXJ : 
Rem PRVLG 

If ff®X30OX31OX28OX29OX02§jwk O CNS_NOT_KUHJnteger Then 

GoTo B03L4 
End If 

GoTo B0X_5 

B03L4: 
Rem PRVLG 

W®X30OX31OX28«_«X29flJX02® = W®X30OX31OX28OX29OX02#_wk 
Rem PRVLG 

CTRL_W@X30OX28OX29ejTS_TRANSITI0N JLG = CTRLjm308_@X28@_@X29@_STSjrRANSITION_FLG + 1 
GoTo B0X_E 

B0X_5 : 
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Rem PRVLG 

i f CTRL JT§X30i^W28MX29§ JTSJRANSIT10N JLG_P 
= CTRL_Vi»30O%28O5S29«_STS„TRANSlTI0NJLGJPP Then 

G0T0 BOX J 
End If 

G0T0 B05L7 

B0X_6 : 
Rem PRVLG 

CTRL.W@«30O*31O»28O»29O«02O0TJ f ALID_FLG = True 
G0T0 BOX_E 

BOXJ: 
Rem PRVLG 

CTRLJ«X30i.«X29§_INGJ f LG = True 
G0T0 BOXJ 

BOXJ: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
IRem PUB4N4 

Private W§X3OMX31©_0X28«JX29©_§XO2© As @X23@ 
IRem PUBIN4 

Private ff©X305OX3)5OX285OX295@_@X200@ As @%235@ 
IRem PUB5C4 

Private CTRLjr§X30l_§X28§^eX29^STSJRANSITIONJLG As Integer 
IRem PUB5Y4 

Private CTRL_m30OX28O«29@^STS^TRANSITI0N_FLG_P As Integer 
IRem PUB5B4 

Private CTMjr§%30§_«X28».«S529«_STS_TRANSITIONJ f LGJ , P As Integer 
IRem PUB6F4 

Private CTRLW@«30OX3ie.§3£28O*29OX02O0T_VALID.FLG As Boolean 
IRem SDEFEND 
IRem PUB4B4 

Private W©X3OOMX3IO§_0X28O§_§X29OMX2OO© As @X23@ 
IRem PUB4N3 

Private W3_§X31©JX28OX29i_©X02i As Integer 
IRem PUB4N2 

Private W2_@X31@_@X28©_@X29@_@X02@ As @X23® 
IRem #DEFPRY 
IRem PRV2T4 

Private W§X30©_©X31MX28«_©X29«JX02©_wk As @X23@ 
IRem PRV7R4 

Private CTRL_W@X30OX29@_ING_FLG As Boolean 
IRem *PUBKU 
Private CNSJIOTJOJJLString As String 
Private CNSJIOTJttJHJnteger As Integer 
Private CNSJWTJCUHJoolean As Boolean 
Private CNS_NOTJUJlLLong As Long 
Private CNS_NOTJCUH_S ingle As Single 
Private CNS_NOT_KUH_Double As Double 
Private CNS_N0T_KUH_Va riant As Variant 
Private CNSJWTJ(UH_Currency As Currency 
Private CNS_NOT_.KUH_Byte As Byte 
Private CNSJJOTJOJILDate As Date 
IRem SPRV2W4 

mm® - - - ■ - 

Rem $PRV2E4 
Rem $PRV4ff4 

\mm 

Rem $PRV4E4 
I Rem #DEFEND 

Public Sub Main 0 
|Rem SVECREP Private Sub L4_@X3l@_@X28OX298_@X02@0 

BOXJ: 
IRem PRVLG 

If W§X30MX31«_«X28©_W29§_«X02© = CNSJWT_KUH_JX23@ 
And W3_@X31OX28@_@X290_8XO20 = 8X070 Then 

GoTo B0X.2 
End If 

GoTo BOXJ 
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BOX J : 
Rem PUB IN 

If We%3O6M»315MX285§.«%295MX200§ = CNSJWTJOJHJX235« Then Go To Box_3 
Rem PRYLG 

@%17@ 
BOX J: 
Rem PRVLG 

If W@*30O%31O*28O*29O%02@_wk O CNSJi0TJ0)H_@*238 Then 

G0T0 BOXJ 
End If 

G0T0 B0X_5 

BOX J: 
Rem PRVLG 

WW30«_«X31MX28OX29OX02§ = W@X30O*31OX28OX29@_@X02@_wk 
Rem PRVLG 

CTRLWW30§_«IS288JX29§JTSJRANSITIONJ ? LG = CTRLJiX30MX28i_W29«JTSJRANSITI0NJFLG + I 
G0T0 BOX_E 

B0X_5: 
Rem PRVLG 

If CTRL_WeX30e„§«28O*298JTSJRANSITI0N_FLG_P 
= CTRL_VeX308_«»28OX29©_STS_TRANSITI0N_FLG_PP Then 

G0T0 BOXJ 
End If 

G0T0 B0X_7 

B0X_6: 
Rem PRVLG 

CTRLJW30§JX3ie_iX28«_iX29MX02«JlOT^VALID_FLG = True 
G0T0 B0X_E 

BOO: 
Rem PRVLG 

CTRLJ«X308_m9§JNGJ f LG = True 
G0T0 B0X_E 

B0X_E: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W@X30O*3 10*280*290*02® As Integer 
Rem PUBIN3 

Private W@X305O*3 150*2850*2950*200® As ®X235@ 
Rem PUB5C3 

Private CTRLJ0X30OX28OX298«STS_TRANSITI0NJ J LG As Integer 
Rem PUB5Y3 

Private CTRLJ*i9S30OX28OX29§„STS„TRANSITI0NJLGJ As Integer 
Rem PUB5B3 

Private CTRLJiX30i_§X28OX29§_STS_TRANSITI0NJFLGJ > P As Integer 
Rem PUB6F3 

Private CTRLJ'@*30O*31O*28O*29OX02O0T_VALID_FLG As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W@X30O*3 10*280X2 90*0 2§_wk@*07e As Integer 
Rem PRV7R3 

Private CTRL_ff@X30O*29@_ING_FLG As Boolean 
Rem PUBKU 

Private CNSJWTJKUHJnteger As Integer 
Rem $PRV2W3 

mm 

Rem SPRV2E3 
Rem SPRV4W3 

mm 

Rem SPRY4E3 
Rem #DEFEND 
Public Sub Main 0 

Rem tVECREP Private Sub L3_@*31O*28O*29®_@X02@ 0 
B03L1: 
Rem PRYLG 

If V6%30§_§%3 10*280*290*026 = CNSJIOTJCUHJnteger Then 

GoTo B0X_2 
End If 

GoTo BOXJ 

B0X_2: 

. Rem PRVLG - ... .- - - - - 

mm 

BOO: 
Rem PUBL3F 

If ff@*30O*31O*28O*29O*02Ok6*07@ = 1 Then GoTo B0X_4 
GoTo BOX J 

BOXjl: 
Rem PUBL3F 

If W@X30O*31O*28O*29O*02@_wk@*07@ = 1 Then W@X 3 00*3 10*280*290*02® = 6X07® 
Rem PRVLG 

CTRL.W@*30O*28O*29OTS_TRANSITI0N_FLG = CTRL_W8*30O*28O*29© STS TRANSITION.FLG I 1 
GoTo BOX J 

BOX J: 
Rem PRVLG 

If CTRL_W@*30O*28Q*29@,STS,TRANSIT I ON_FLG_P 
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= CTRLJ'eX30§_§X288JX29§_STSJRANSIT10NJLGJ ) P Then 

G0T0 B0X_6 
End ]f 

G0T0 B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLjm30O»3IO»28O«29O^02O0T^VALID.FLG = True 
G0T0 BOX_E 

B0X_7: 
Rem PRVLG 

CTRLJM30O*29@JNG_FLG = True 
G0T0 B03LE 

BOX_E: 
End Sub 
Rein *** PRCEND 



ffilE# 2004-3099192 



&m 2003-330797 



^-y: 167/ 



[B 1 6 9] 

i^m-±^ h)l><D® : 0 3 0-1 

M/&t}/m&m/mm&/mftm<DL 4 <gg##o 320-1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W0X3OO*3iO*28OX29OXO2@ As 8X23@ 
Rem PUB1N4 

Private TOK305OX3 1 50X2850*2 95OX200G As @X235@ 
Rem PUB5C4 

Private CTRL_V«X30§ M W528«_«X29§_STS_TRANSITIONJ ? LG As Integer 
Rem PUB5Y4 

Private CTRL_WQX30©_®«28e_§«29ejTS_TRANSlTI0N.FLGJ ) As Integer 
Rem PUB5B4 

Private CTRLJ«X30§_§X28OX29®_STSJRANSITI0NJLGJP As Integer 
Rem PUB6F4 

Private CTRL _W@X30OX3 lOX28OX29OX02O0T_YAL \ D_FLG As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private W§X300OX310OX280OX290OX200§ As @%23@ 
Rem PUB4N3 

Private W3_§X31OX28OX29OX02« As Integer 
Rem PUB4N2 

' Private W2_@X3 1OX28OX29OXO20 As @X23@ 
Rem SDEFPRV 
Rem PRV2T4 

Private W@X30OX31OX28OX29OX02@_wk As QX23§ 
Rem PRV7R4 

Private CTRL_W@X30OX29@JNGJ ? LG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUH_S t r i ng As String 
Private CNSJJOTJOJHJnteger As Integer 
Private CNS_NOT_KUH_Boolean As Boolean 
Private CNSJWTJOIH_Long As Long 
Private CNSJWTJHBLS ingle As Single 
Private CNS_NOT_KUHJ)ouble As Double 
Private CNSJWTJCUH_Variant As Variant 
Private CNS_NOT_KUH_Currency As Currency 
Private CNSJIOTJCUHJyte As Byte 
Private CNS_NOT_KUHJ)ate As Date 
Rem $PRV2f 4 

@X172@ 

Rem SPRV2E4 
Rem $PRV4W4 

mm 

Rem $PRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub LOX3 1OX28OX29OXO2OXO70O 
BOX J : 
Rem PRVLG 

If W@X30OX3 1OX28OX29OX02® = CNS_NOT_KUH_@X23@ And _ 
Rem PRVLG 

W3_@X3 1OX28OX29OX02® = @X07@ Then 
GoTo B0X_2 
End If 
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G0T0 BOXJE 

BOX J : 
Rem PUB IN 

If ffW5305e.«X315MX28SMX29S§_§S5200© = CNSJ*0TJOJH_@*235© Then Go To Box_3 
Rem PRVLG 

B0X_3 : 
Rem PRVLG 

If W§*30O*31O*28O*29O*02®_wk O CNSJJOTJOJOX23e Then 

G0T0 B0X_4 
End If 

G0T0 BOXJ 

B0X_4: 
Rem PRVLG 

W@*30O*3 10*280*290*020 = W@*30O*31O*28O*29O*02Ok 
Rem PRVLG 

CTRL.W^30O»28O*29§_STS_TRANSITI0N_FLG = CTRLjeX30§JJS28«_eX29i_STS_TRAHSITI0NJLG + 1 
GoTo BOXJ 

B0X_5 : 
Rem PRVLG 

I f CTRLJ*@X30O»28O^29@_STS_TRANSITI0N_FLGJ 
= CTRLJ*@X30O*28O*29@_STS„TRANSITI0N_FLG_PP Then 

GoTo BOXJ 
End If 

GoTo B0X_7 

B0XJ> : 
Rem PRVLG 

CTRL_W^30O«31O5K28@_@»29O^02O0TJ ; ALID„FLG = True 
GoTo BOXJ 

B0X_7 : 
Rem PRVLG 

CTRLJ§S30OX298JNG_FLG = True 
GoTo BOO 

BOXJ: 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem 3DEFPUB 
Rem PUB4N3 

Private W@X30OX31OX28O*29OX028(@*26OX27@) As Integer 
Rem PUBIN3 

Private W@X305O*3 1 5O*285O*295O*200@ (@*265@, @X275@) As @X235@ 
Rem PUB5C3 

Private CTRL3@*30O*28O*29@_STS„TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRL_W30O*28O*29@_STS.TRANSITI0NJLG.P As Integer 
Rem PUB5B3 

Private CTRLjm30O*28O*29OTSjrMNSITI0NJ ? LGJ > P As Integer 
Rem PUB6F3 

Private CTRLW@*30O*31O*28O*29O*02@_N0TJ f ALIDJLG (@X26@, @X27@) As Boolean 
Rem #DEFEND 
Rem SDEFPRY 
Rem PRV2T3 

Private m3QO*31O*28O*29OX02Ok(@X26O*27@) As Integer 
Rem PRV7R3 

Private CTRLJ'§X30O*29§JNGJFLG As Boolean 
Rem POBKU 

Private CNSJWTJOJHJnteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Uti_Max as Integer 
Private SotoJIax as Integer 
Rem $PRV2W3 

mm 

Rem $PRV2E3 
Rem SPRV4W3 
0X1650 
Rem SPRV4E3 
Rem #DEFEND 
Public Sub Main 0 

Rem #VECREP Private Sub L3_@X3 10*280*290*02® 0 

Gyou = 0 

Retu =0 
Rem PRVLG 

If 8X348 < 8X358 then 
Rem PRVLG 

Utijtfax = 8X260 

Rem PRVLG 

SotoJIax = 8X278 

End If 
Rem PRVLG 

If 8X340 > 8X358 then 
Rem PRVLG 

UliJIax = 8X276 

Rem PRVLG 

SotoJIax = 0X260 
End If 
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[0172] 

Wm~±H7 hJlftSU : 0 3 1 - 2 

M/tht}/m&m/&mm/mnm<DL 3 0330-2) 

UtLCnt = 0 
Sotojnt = 0 
Do Until Sotojnt = SotoJIax + 1 
UtLCnt = 0 
Rem PRVLG 

I f %%m < mm then 
Gyou = UtLCnt 
Retu = Sotojnt 
End If 
Rem PRVLG 

If @*34@ > @*35@ then 
Gyou = Sotojnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtiJIax + 1 
BOXJ: 
Rem PRVLG 

If W@S30O*3 10*280*290*020 (Gyou, Retu) = CNS_NOTJUJH_Integer Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 
Rem PRVLG 

mm 

Rem PRVLG 

W@*30O*31O*28O*29O*02Ok = @%07@ 
BOXJ: 
Rem PRVLG 

If W@*30O*31O*28O*29O*02Ok (Gyou. Retu) O CNSJOLKUHJnteger Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 
Rem PRVLG 

W@*30O*31O*28O*29O*02@ (Gyou. Retu) = W@*300*310*280*290*02@_wk(Gyou, Retu) 
Rem PRVLG 

CTRL J@%30O*28O*29OTSJMNSIT ION JLG = CTRLJ"@X30O*28O*29®JTSJRANSITI0NJLG + 1 
GoTo BOXJ 

BOXJ: ........ 

Rem PRVLG 

I f CTRL J@*3GO*28O*29@JTSJRANSiTI0NJLGJ 
= CTRL_W§X30§^®X28OX29®JTSJRANSlTI0NJLGJP Then 

GoTo B0X_6 
End If 

GoTo BOXJ 

BOXJ: 
Rem PRVLG 

CTRLJ@S30O*3 10*280*290*020 JOTJALIDJLG (Gyou, Retu) = True 
GoTo BOXJ 

BOXJ: 
Rem PRVLG 

CTRLJ8X30O*298_INGJLG = True 
GoTo BOXJ 
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ttm-^t? b)V<DM : 0 3 1-3 

M/&ti/m&m/mmm/m.Rm<Di. s (tis^o 330-3) 



BOX J : 

UtLCnt = UtLCnt + ! 

Rem PRVLG 

If @*34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soio_Cnt 
End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @*348 < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Soto__Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Sotojnt = 0 
Uti_Max = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND 
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[0174] 

{$»-±*V? h)ls<DM : 0 3 2-1 

M/iht>/&mG/^mm/&Rm<DL a (gg^ 0340-1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W8*308_8*318_8*288_8*298.J*028 (8*268. 8*278) As 8*238 
Rem PUBIN4 

Private W8*3058__8*3 15O*285O*295O*200@ (8*2658, 8*2758) As 8*2358 
Rem PUB5C4 

Private CTRL3@*30O*28O*29OTS_TRANSITI0N_PLG As Integer 
Rem PUB5Y4 

Private CTRL_W@*30O*28O*29@_STS.TRANSITI0NJLG_P As Integer 
Rem PUB5B4 

Private CTRLJ'@*30O*28O*29OTS^TRANSITI0N_FLGJP As Integer 
Rem PUB6F4 

Private CTRLJ@*30O*31O*28O*29O*02O0T^VALID_FLG(@*26@, @*27@) As Boolean 
Rem #DEFEND 

Rem PUB4B4 

Private W8*3008_8*3108_8*2808_8*2908_8*2008 (8*268, 8*278) As 8*238 
Rem PUB4N3 

Private W3_8*3 10*280*290*028 (8*268, 8*278) As Integer 
Rem PUB4N2 

' Private W2_8*318_8*288_8*298_8*028 (8*268, 8*278) As 8*238 
Rem SDEFPRY 
Rem PRV2T4 

Private W8*308_8*318_J*288_8*298_8*028_wk (8*268. 8*278) As 8*238 
Rem PRV7R4 

Private CTRL_W8*308_8*298JNG.JLG As Boolean 
Rem *PUBKU 

Private CNSJWTJOJILString As String 
Private CNS_NOT_KUHJnteger As Integer 
Private CNSJ*OTJ(UH_Boolean As Boolean 
Private CNS_NOT_KUH_Long As Long 
Private CNS_NOT_KUH_S ingle As Single 
Private CNSJW_KUHJ)ouble As Double 
Private CNSJWTJvUHJ'a riant As Variant 
Private CNS_NOTJCUILCurrency As Currency 
Private CNSJiOTJttJH_Byte As Byte 
Private CNS_NOTJ(UHJ)ate As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private UtLCnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SPRV2W4 
8*1728 
Rem IPRV2E4 
Rem $PRV4ff4 
8*1828 
Rem SPRV4E4 
Rem SDEFEND 

Public Sub MainO 

Rem 3VECREP Private Sub lA.8*30e_8*318_8*288,8*298_8*028 0 
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tt£i-:£^ WKDS : 0 3 2-2 

M/\&ii/mmm/^m^m.R&v>'L 4 (gg#j? 0340-2) 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 8X348 < ©%35@ then 
Rem PRVLG 

uujiax = mm 

Rem PRVLG 

SotoJIax = 8X278 

End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Rem PRVLG 

l)ti_Max = 8X278 

Rem PRVLG 

Soto_Max = 8X268 
End If 
Utijnt = 0 
Soto_Cnt = 0 
Do Until Sotojnt = Soto_Max + 1 
Uti_Cnt = 0 
Rem PRVLG 

If 8*34® < 8X358 then 
Gyou = Uli_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Gyou = Soto_Cnt 
Relu = UtLCnt 
End If 

Do Until UtLCnt = UtiJJax + 1 
BOX^l : 
Rem PRVLG 

If W8X308_8X318_8X288_8X298_8X028 (Gyou, Retu) = CNSJIQT_KUIL8X238 And _ 
Rem PRVLG 

W3_8X318_8X288_8X298_8X02@ (Gyou, Retu) = 8X078 Then 
GoTo B0X_2 
End If 

GoTo B0X_E 

BOO: 
Rem PUB IN 

If W8X3058_8X3158_8X2858_8X2958„8X2008 (Gyou, Retu) = CNS_N0T_KUH_8X2358 Then Go To Box_3 
Rem PRVLG 

8X178 
B0X_3: 
Rem PRVLG 

If W8X30e_8X318_8X288_8X298__8X028_wk (Gyou, Retu) O CNSJI0OUEL8X238 Then 

GoTo B05L4 
End If 

GoTo BOX _5 

B0X_4: 
Rem PRVLG 

W8X308_8X318_8X288_8X298_8X028 (Gyou, Retu) = ff8X 3 Q8_8X3 18_8X2 88_8X2 98_8X028_wk (Gyou, Retu) 
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h^CQgJ : 0 3 2-3 

M/&ti/&&m/mffim/m¥im<DL a (ggaHt 0340-3) 

Rem PRVLG 

CTRLJW30§.8X28§_§X29««STS - TRANSITIONJLG = CTRLJ'®X30§_@X28O5629§.STS - TRANSITI0N.FLG 4 1 
GoTo BOX.E 

B0X.5: 
Rem PRVLG 

I f CTRL_W§SK30©_eX28§_§S629@„STS„TRANSITIONJLG_P 
= CTRL_ffe«3Oi_@%280„§JK29@_STS - TRANSITION_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6: 
Rem PRVLG 

CTRLJW30MX310X28§_.©X29«_ex02000ALlD_FLG(Gyou. Retu) = True 
GoTo BOO 

B0X_7: 
Rem PRVLG 

CTRLJ§X3O«JX290_INGJFLG = True 
GoTo BOO 

BOX J: 

UtLCnt = UtLCnt + 1 

Rem PRVLG 

I f %%U§ < @%35@ then 

Gyou = UtLCnt 

Retu = Soto_Cnt 
End If 

Rem PRVLG 

If @%34® > @%35@ then 

Gyou = Soto_Cnt 

Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt t 1 
Rem PRVLG 

If @X34@ < @X35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If 8*34@ > @X35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto^Cnt = 0 
UtiJIax = 0 
Sot o.Max = 0 
End Sub 

Rem *** PRCEND 
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f**-*'** h)U<DM : 0 3 3 - 1 

M/mti/ti£mG/mmm/mft$k<DL 3 esim^o 3 5 0 - 1 ) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private ff0X3O0_0X3I0_®*280_®X29®_®*O2® (0*26©. 0X270) As Integer 
Rem PUBIN3 

Private W®X3O50_0X315©_©*285®__0X2950_®X2OO0 (0X2650, @^275@) As 0X235® 
Rem PUB5C3 

Private CTRL3@»30@^28O»29@_STS_TRANSlT10NJLG As Integer 
Rem PUB5Y3 

Private CTRLjm30^@%28O«298.STS_TRANSITI0NJLG_P As Integer 
Rem PUB5B3 

Private CTRL3@5530OX28O«29@_STS_TRANSIT10NJLGJP As Integer 
Rem PUB6F3 

Private CTRL3@«30O*31O*28O^29O^02O0TJ r ALID_FLG(@%26@, @%27@) As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private W®X3O0_0X31®_0X28@_@X29®_0XO20jffk®XO7® (0X260, 0*270) As Integer 
Rem PRV7R3 

Private CTRL_W®X3O0_©X290_INGJFLG As Boolean 
Rem PUBKU 

Private CNS.NOTJttJHJnteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem $PRV2W3 
6X1623 
Rem $PRV2E3 
Rem $PRV4W3 
0X1650 
Rem $PRV4E3 
Rem #DEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L3_0X310_0X280_0X29©_0XO20 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

I f 0*34® < 0*35® then 
Rem PRVLG 

UtiJIax = @»26@ 

Rem PRVLG 

SotoJIax = 0*270 

End If 
Rem PRVLG 

If 0*34® > 0*350 then 
Rem PRVLG 

UtLMax = 0*270 

Rem PRVLG 

SotoJIax = 0*260 
End If 
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UtLCnt = 0 
Sotojnt = 0 
Do Until Soto^Cnl = SotoJJax + 1 
UtLCnl = 0 
Rem PRVLG 

If @%34@ < mm then 
Gyou = UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If ®%m > @K35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Utijlax + I 
BOX J : 
Rem PRVLG 

If V§%30§_§X31§_eX28§_8X29i_«X02« (Gyou, Retu) = CNS_NOTJtt)HJnleger Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
Rem PRVLG 



B0X_3: 
Rem PUBL3F 

If WW30MX31«_«X28«_«l529§_§X02i_wk§X07« (Gyou, Retu) = 1 Then GoTo B0X_4 
GoTo B0X_5 

B0X_4 : 
Rem PUBL3F 

If W@*30O*31Omo*29O*02@3fc@*07@ (Gyou, Retu) = 1 
Then W%mjMZl%J&%2ZQJ%29QJ%m (Gyou. Retu) = 8%07@ 
Rem PRVLG 

CTRL_W§X308.iX28iJX29i_STS_TRANSITIONJ ? LG = CTRLJ§X30«JX28MX29»JTS_TRANSITI0NJ ? LG 4 1 
GoTo BOX_E 

B0X_5 : 
Rem PRVLG 

I f CTRL J"«X30i_§X28«_«29§ JTSJRANSITION JLGJ 
= CTRLJ«JS30MX28§_eX29§JTS_TRANSITIONJLGJP Then 

GoTo B0X_6 
End If 

GoTo B0XJ7 

B03L6 : 
Rem PRVLG 

CTRL„m30MX31M9528OX29i_«3S02O0T_VALIDJLG (Gyou, Retu) = True 
GoTo BOX J 

B0X_7 : 
Rem PRVLG 

CTRLjra*30O*29@JNGJFLG = True 
GoTo BOX J 

BOX_E : 

UtLCnt = UtLCnt + 1 

Rem PRVLG 
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Rem PRVLG 



If @%34@ < @X35@ then 
Gyou = UtLCnt 
Retu = Solo_Cnl 

End If 



If mm > §K359 then 
Gyou = Soto_Cnt 
Retu = Uli_Cnt 
End If 

Loop 

Solo_Cnl = Soto_Cnt + 1 
Rem PRVLG 

If @%34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Solo_Cnt 
End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
UtLCnt = 0 
Soto_Cnt = 0 
Utijlax = 0 
Soto_Max = 0 
End Sub 

Rem *** PRCEND 
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nm-±^ hJVCDM : 0 3 4-1 

M/&l2/&n^/&ffiti/9Lfti&<0'L 4 (tgm&Sj 0 3 6 0- 1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB4N4 

Private W@X30OX31OX28OX29OX02@(@%26@. @X27@) As @X23@ 
Rem PUBIN4 

Private W@X305OX315OX285@_@X295OX2008(@X265@, @»275@) As @X235@ 
Rem PUB5C4 

Private CTRLJ«X30MX28MJK29§JTS_TRANSITIONJ ? LG As Integer 
Rem PUB5Y4 

Private CTRLJ§X30«JX28M%29§ - STSJRANSITION_FLGJP As Integer 
Rem PUB5B4 

Private CTRLJW30OX28OX298_STSJ , RANSITI0NJLGJ>P As Integer 
Rem PUB6F4 

Private CTRL.W§X30MX31«_W28OX29§ - «X02O0T_VALIDJ'LG (@X26@, @X27@) As Boolean 
Rem #DEFEND 
Rem PUB4B4 

Private W@X300@_@X310OX28QOX290OX200@ (@X26@, @X27@) As 85523® 
Rem PUB4N3 

Private W3_OX31«_«%28MX29§JX02e(§X26«, «X27« As Integer 
Rem PUB4N2 

' Private V2 H H31§.aK28IJ8X298jW029(iX26i l iX27i) As @X23@ 
Rem tDEPPRV 
Rem PRV2T4 

Private ff@X30OX31OX28OX29@_@X02@_wk (@X26@. @X27@) As @X23@ 
Rem PRV7R4 

Private CTRLJ'@X30@_@X29@.JNGJ 7 LG As Boolean 
Rem *Pt)BKU 

Private CNSJWTJtt!H_String As String 

Private CNSJYOTJOJHJnteger As Integer 

Private CNSJJOT_KUH_Boolean As Boolean 

Private CNS_NOTJUffl_Long As Long 

Private CNS.NOTJKUILS ingle As Single 

Private CNSJWT_KUHJ)oubie As Double 

Private CNSJWTJ(UH_Va riant As Variant 

Private CNSJlOTJOJILCurrency As Currency 

Private CNS_NOTJOJH_Byte As Byte 

Private CNS.NOT_KUH.Date As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti.Cnt as Integer 

Private Soto.Cnt as Integer 

Private UtiJIax as Integer 

Private SotoJIax as Integer 
Rem SPRV2W4 
8X1 72® 
Rem SPRV2E4 
Rem SPRV4W4 
9X1 82@ 
Rem SPRV4E4 
Rem SDEFEND 

Public Sub MainO 

Rem #VECREP Private Sub L4_@X31OX28OX298_@X02@_@X07@0 
Gyou = 0 
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Hm-±^ h)l<DS£ : 0 3 4-2 

M/mt)/mmft/mffifi/mfti&<DL 4 (wji#^o 3 6 o - 2) 

Retu = 0 ' 
Rem PRVLG 

If @*34@ < @%35@ then 
Rem PRVLG 

Utijlax = @*26@ 

Rem PRVLG 

Soto_Max = @%27@ 
End If 
Rem PRVLG 

If @S34@ > ®%m then 
Rem PRVLG 

Utijfax = @K27@ 

Rem PRVLG 

soto_Max = mm 

End If 
UtLCnt = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt = Sotojfax i I 
UtLCnt = 0 
Rem PRVLG 

If @%34@ < @%35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @%34@ > @%35@ then 
Gyou = Sotojnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtLMax + 1 
BOX J: 
Rem PRVLG 

If ff@X30@_@%31@^28@_@X29O«02@ (Gyou, Retu) = CNSJI0TJ(UH_@S238 And _ 
Rem PRVLG 

W3_@*31O*28O%29@_§*02® (Gyou, Retu) = @K07@ Then 
GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2: 
Rem PUB IN 

If W@X305O*315@^285@^295OX200@ (Gyou. Retu) = CNS_NOTJOJH_@X235@ Then Go To Box J 
Rem PRVLG 

mm 

B0X_3 : 
Rem PRVLG 

If W@X30@_^31O%28O«29O^02@_wk (Gyou. Retu) O CNSJ*0TJOJH_8*23@ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0)L4: 
Rem PRVLG 

ff§*30O*3 10*280*290*020 (Gyou, Retu) = ff@*30O*31O*28O*29O*02@_wk (Gyou. Retu) 
Rem PRVLG 
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CTRLJ^30O5528O^29@_STS_TRANSlTI0NJLG = CTRLjm30M5528@_@«29@,STS_TRANSITION_FLG + 1 
GoTo BOO 

B0X_5 : 
Rem PRVLG 

I f CTRL_W@9S30@ Jl*2 8@_@%2 9 @_STS_TRAN S I T 1 0N_FLG_P 
= CTRL_W@5530§_@%28O»29@„STS„TRANSITI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRL_W^3005K3ie„eX280«290^02@_NOT„VALID„FLG(Gyou. Retu) = True 
GoTo BOXJ 

B0X_7: 
Rem PRVLG 

CTRLJ"@X30O*29@JNG_FLG = True 
GoTo BOXJ 

BOX J: 

UtLCnt = UtLCnt f 1 
Rem PRVLG 

If @*34@ < @*35@ then 
Gyou = UtLCnl 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If @%34@ > @*35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
Rem PRVLG 

If @K34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto.Cnt 
End If 
Rem PRVLG 

If @S34@ > @S35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 

Gyou - 0 
Retu = 0 
UtLCnt = 0 
Soto^Cnt = 0 
UtiJIax = 0 
SotoJIax - 0 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W8X308_8X318JX288_8X298JOCCESS_KBY As Integer 
Rem PUBIN3 

Private W8X3058_8X3158_8X2858_8X2958_8X2008 As 8*2358 
Rem PUB5C3 

Private CTRL_ff§X30§.«X28O«29§_STS_TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRLJ@5K30O^28O*29@_STS_TRANSITI0NJLGJ > As Integer 
Rem PUB5B3 

Private CTRL_W«X30OX288_8X29§.STS_TRANSITI0NJ ? LGJPP As Integer 
Rem PUB6F3 

Private CTRLJ@X30@_@X31O^28O«29@„IN^ACCESS^KEY_N0T_VALID_FLG As Boolean 
Rem DEFEND 
Rem tDEFPRV 
Rem PRV2T3 

Private W§SS30OX31MX28MSK29«_INJlCCESSJKEY_wk«X07i As Integer 
Rem PRV7R3 

Private CTRL_W@SS308_@*298JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJWTJKUHJnteger As Integer 
Private Gyou as Integer 
Private Retu as Integer 
Private Uli_Cnt as Integer 
Private Solo_Cnt as Integer 
Private Uti_Max as Integer 
Private SotoJIax as Integer 
Rem SPRV2W3 
8X1628 
Rem SPRV2E3 
Rem $PRV4W3 
8X1656 
Rem SPRV4E3 
Rem ^DEFEND 
Public Sub MainO 

Rem SYECREP Private Sub L3_8X318_8X288_8X298_INJUXESSJCEY0 
B03L1: 
Rem PRVIG 

If W8X308_8X318_8X288_8X298JNJlCCESSJffiY = W8X308_fX318_8X288_8X298JNJtf CESS JOEY Then 

GoTo BOXJ 
End If 

GoTo BOO 

B0X_2: 
Rem PRVLG 

mm 

BOX J : 
Rem PUBL3F 

If W@X3G@_8X31@_8X288_8X298_INJtfCESSJ(EY_wk8XQ78 = 1 Tben GoTo B0X_4 
GoTo B0JL5 

B0X_4: 
Rem PUBL3F 

I f W@X308_8X318_eme_@X298_lNJlCCESSJ(EY_wk8X07e = 1 T __ 
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tt&-± y <# b )\><D%± : 0 3 5-2 

A^J7^-trX^-g)L 3 (gl$f 0 3 7 0- 2) 

I hen W30O*31O»28O5529@^IN_ACCESS_KEY = @%07@ 

Rem PRVLG 

CTRLJ'««30e_W28l_fX29i_STS_TRANSITI0NJ ? LG = CTRLJ'@»30O«28O»29^STS„TRANSITl0NJLG + 1 
GoTo BOX.E 

B0X_5: 
Rem PRVLG 

If CTRLJ'«X30§_W28«_«X29©JTS.TRANSIT10NJLGJP 
= CTRLJ'iX3M^«X28MX29§JTSJRANSIT10NJLG - PP Then 

GoTo B0X_6 
End If 

GoTo B0X.7 

B0X_6: 
Rem PRVLG 

CTRLJ@X30O»31O«28§J»29@_INJ^CCESS.KEYJI0T_VALID_FLG = True 
GoTo BOX_E 

B0XJ7: 
Rem PRVLG 

CTRLJ«30@_@X298JNG_FLG = True 
GoTo BOX_E 

BOX_E: 
End Sub 
Rem *** PRCEND 
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: 0 3 6-1 

AMl$ff^L3 (gil#-^0 3 9 0- 1) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N3 

Private ff®X300X31§.6SIS280X296JNJondi tions_KEY As Integer 
Rem PUBIN3 

Private W@S305@_@X315OK285@_@*295O*200@ As @%235@ 
Rem PUB5C3 

Private CTRL^30@_@X28@_^29@_STS_TRANSITION_FLG As Integer 
Rem PUB5Y3 

Private CTRLjm30O»28O»29@ - STS^TRANSITI0NJLG_P As Integer 
Rem PUB5B3 

Private CTRLJ^30@^280^29@_STS„TRANS1TION_FLG_PP As Integer 
Rem PUB6F3 

Private CTRL_ff@^308_@^310^28@_@*29@_IN_Cond i 1 1 ons_KEY_NOT_VALID _FLG As Boolean 
Rem SDEFEND 
Rem 3DEFPRV 
Rem PRV2T3 

Private ff@X300^31@^28©„@X29@_INJondi tions^KEY^.wk@%07@ As Integer 
Rem PRV7R3 

Private CTRLW@X30O«29@_INGJLG As Boolean 
Rem PUBKU 

Private CNSJK)T_KUHJnteger As Integer 
Rem $PRV2W3 

mm 

Rem SPRV2E3 
Rem $PRV4W3 

mm 

Rem $PRV4E3 
Rem #DEFEND 

Public Sub MainO 
Rem #VECREP Private Sub L3^31@^28@_@S&29@„IN^Condi UonsJvEY 0 

BOX.l: 
Rem PRVLG 

If ff@%30@_^31M»28@_@X29@JN_Conditions_KEY = W@X30@_@^310X28@_@X29@„IN^Condi tions_KEY 
Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
Rem PRVLG 

mm 

BOX J : 
Rem PUBL3F 

If W^30@_@X310«280*29^IN_Conditions^KEY_wk@»07@ = 1 Then GoTo B0X_4 
GoTo B0)L5 

B0X_4: 
Rem PUBL3F 

If W@5S300«31@_^280*29@_INJonditions_KEY^wk@%07@ = i 
Then W8X300*310*280*29@JNj;onditionsJCEY = @SK07@ 
Rem PRVLG 

CTRL_W@»30M«28O^298.STS_TRANSITI0N_FLG = CTRL3@X30O«28OX298_STSJRANSITI0N - FLG + 1 
GoTo BOXJi 

B0)L5: 
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h;KDS : 0 3 6-2 
A^ffiiS*^*— 3 (fl#^0 3 9 0~2) 



Rem PRVLG 

I f CTRLJ^30OS528OX296JTSJRANSITI0NJLG^P 
= CTRL_V§X30§.§»28©_eX29©JTSJRANSIT10NJFLG_PP Then 

GoTo B0X_6 
End If 

GoTo BOXJT 

BOX J: 
Rem PRVLG 

CTRL3^300«3l0^280«29®„IN - Condilions_KEY^NOT„VALID_FLG = True 
GoTo B03LE 

B0X_7: 
Rem PRVLG 

CTRLJtt*30@_@*29@JNG_FLG = True 
GoTo B0X_E 

BOO: 
End Sub 
Rem *** PRCEND 
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ttis-^^ hkpsj : 0 3 7 - 1 

ffi^77^-feX^-C0L 3 (^91*^0 4 1 0- 1) 



Option Explicit 
Rem SDEFPUB 
[Rem PUB4N3 

Private W0X3O@JX310JX28@JX290JUTJU;CESSJCEY As Integer 
IRem PUBIN3 

Private W0X3O50_0X315@_@X285@_@X29 50.0X2000 As @%235@ 
IRem PUB5C3 

Private CTRLJ"«X30MX28OX2M_STS.TRANSITl0NJ f LG As Integer 
IRem PUB5Y3 

Private CTRLJ0X3O0JX280_0X29©._STSJ , RANS1T1ONJ ? LGJ > As Integer 
IRem PUB5B3 

Private CTRL_W«X30§JX28§ - .§«29«_STSJRANS1TI0NJLGJ , P As Integer 
IRem PUB6F3 

Private CTRL3@»30O*31OX28OX29OUT_ACCESS^KEY_N0TJ 7 ALIDJLG As Boolean 
IRem #DEFEND 
Rem #DEFPRV 
IRem PRV2T3 

Private W0X3O0J%310JX28®JX290JUTjmSSJ(EYj»k0XO70 As Integer 
IRem PRV7R3 

Private CTRLJ'0X3O0_0X290JNGJ ? LG As Boolean 
IRem PUBKU 

Private CNSJNOTJKUHJnteger As Integer 
IRem $PRV2W3 
pi 62® 
Rem SPRV2E3 
Rem $PRV4W3 
0X1650 
Rem $PRV4E3 
iRem #DEFEND 

Public Sub MainO 
|Rem #VECREP Private Sub L3JX310JX280JX290J3UTJVCCESSJOEY () 

B0X_1: 
IRem PRVLG 

If W0X3Q@_0X310_0X280_0X290_OUT_ACCESS._KEY = W8X3OiJX310^@X280_0X290J)UT_ACCESSJCEY Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
IRem PRVLG 
0X160 
B0X_3: 
IRem PUBL3F 

If W0X3O0_0X310_0X28@^0X290.OUT_ACCESS_KEY„wk0XO70 = I Then GoTo B0X_4 
GoTo BOXJ 

B0X_4: 
IRem PUBL3F 

If W0X3O@ - ©X31§_@X28@^@X290_OUT_ACCESS_KEY.wk0XO70 = 1 
Then ff0X3O0_0X310_0X280_0X290_OUT_ACCESS_KEY = 0X070 
IRem PRVLG 

CTRL^W0X3O0^0X280_0X290_STS„TRANSITIONJ 7 LG = CTRLJ0X3O0_0X280_0X290^STS_TRANSITION_FLG + 1 
GoTo BOXJ 

BOXJ: 

IRem PRVLG 
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ttm-S:^? h)l<DM : 0 3 7-2 

m^r^irX^r-OL 3 (tiff 04 10-2) 

I f CTRLJ*@X30O^28@_§X29@.STS_TRANSITI0N_FLG_P 
= CTRL_W@X30OX28§_@X298_STS„TRANSITI0NJLG^PP Then 
GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRL_W@%30O»31OX28O^29@_0UT - ACCESS^KEYJ0T_VALIDJLG = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRL36M0O*29@JNG_FLG = True 
GoTo B0X_E 

B0X_E: 
End Sub 

Rem *** PRCEND 
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tt$k-±<*9 b)V(Om : 0 3 8-1 
fflAftiftttt-OLS (§1*^0 4 3 0- 1) 



Option Explicit 
Rem #DEFPUB 
IRem PUB4N3 

Private W@X30§_§X31§JX28MX298_0UTJondilionsJEY As Integer 
IRem PUBIN3 

Private W@X305O*315O*285@_@K295O*200@ As 8*235@ 
IRem PUB5C3 

Private CTRLje«30MX28©JX29e - STSJRANSITIONJLG As Integer 
IRem PUB5Y3 

Private CTRLJ«K3OMX28§_«X290_STS_TRANSITION_FLG_P As Integer 
IRem PUB5B3 

Private CTRL_W«SU30OX28OX29@.STS_TRANSITI0NJLG_PP As Integer 
IRem PUB6F3 

Private CTRL_W8X30§JX31§_§X289_8X29i.0nT_Condi t ionsJCEYJJOTJ'ALIDJLG As Boolean 
IRem 3DEFEND 
Rem SDEFPRY 
IRem PRV2T3 

Private W@X30MX310«280*29©_OUT_Conditions„KEY„wk®JI507i As Integer 
IRem PRV7R3 

Private CTHJWX30MX298JNG_FLG As Boolean 
IRem PUBKU 

Private CNS.NOTJOIHJnteger As Integer 
IRem $PRV2W3 
3X1628 
Rem SPRV2E3 
Rem $PRV4ff3 

mm§ 

Rem IPRV4E3 
IRem #DEFEND 

Public Sub MainO 
|Rem 3VECREP Private Sub L3_@X310*280«29@_OUT_Conditions_KEY 0 

B0X_1 : 
IRem PRVLG 

If W§X30§_8X318 - §X28§_§X298_0UT.CondilionsJffiY = W@X300X310X280*290UT._Condi t ions.KEY 
Then 

GoTo BOX Jt 
End If 

GoTo BOX J 

B0X_2: 
IRem PRVLG 

mm 

B0X_3: 
IRem PUBL3F 

If W«X30§_§X31MX28§_§X29i_0UT_ConditionsJ0SY.wkWS07« = 1 Then GoTo B0X_4 
GoTo B0X_5 

BOXjt: 
IRem PUBL3F 

If W@X300X310X286_@X290UT„Conditions,KEY_wk@X07@ = 1 
Then W@X300X310*280X290UTj:ond!tions_KEY = @X07@ 
IRem PRVLG 

CTRL_W@X30©_@X28O*29@_STS_TRANSITI0NJLG = CTRLJ0X3O©_eX28©_@X29@„STS„TRANSITION_FLG + 1 
GoTo BOXJ 

B0X_5: 
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: 0 3 8-2 
ttitimm&WS—OL 3 (flS§0 4 3 0-2) 



Rem PRVLG 

I f CTRLJ'@xaOO»28@^29@_STS_TRANSITIONJLG_P 
= CTRLJ@3530O»28O5529e^STS_TRANSITI0N_FLGJP Then 

GoTo B0X_6 
End If 

GoTo B0XJ7 

B0X_6: 
Rem PRVLG 

CTRL3@*300*3i0^280%29@_OUT_Coiiditions_KEY_NOT_.VALIDJLG = True 
GoTo BOXJ 

B0X_7: 
Rem PRVLG 

CTRL_W@K30O*29@JNG_FLG = True 

GoTo BOX_E 

BOX J: 
End Sub 

Rem *** PRCEND 
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a*37>ko)I2 vsmmno 4 s o- 1> 



Option Explicit 
Rem SDEFPUB 
|Rem PUB4N2 

Private CTR3*3IO*280*29@_12_END As Boolean 
iRem PUB4N2 

Private CTR^%3IO*28@_J*29@J2_CNT As Integer 
IRem PUB4N2 

Private CTR_@X310*280*29@J2_ERR As Boolean 
IRem PUB4N2 

Private CTR_@*31OS28@_@S29@J2_E0F As Boolean 
IRem PUBIN2 

Private ff@*305O*315O*285@_@S295OX200@ As @»235@ 
IRem PUB5C2 

Private CTRL_W^30O«28O^29@_STS_TRANSlTI0N_FLG As Integer 
IRem PUB5Y2 

Private CTRL.W@»30O»28O»29@_STS.TRANSITI0NJLG^P As Integer 
IRem PUB5B2 

Private CTRL3@*30O«28@_@9529@^STS_TRANSITI0NJLG^PP As Integer 
IRem I2AKYARA 
Rem I2PKYARA 
IRem PUB6F2 

Private CTRL_W@X30O*31O*28O3529OX02O0T_VALID_FLG As Boolean 
(Rem #DEFEND 
Rem 3DEFPRV 
IRem PRV7R2 

Private CTRLJ*9$3QO*29@_ING_FLG As Boolean 
IRem $PRV2W2 
@%152@ 
[Rem SPRV2E2 
IRem $PRV4W2 
9X1559 
IRem $PRV4E2 
I Rem #DEFEND 

Public Sub MainO 
|Rem SVECREP Private Sub 12_@*31@_m8O*29O*02OS07@ 0 

B03L1: 
IRem I2PKYKUU 

If @S50® O 9*07© Then Exit Sub 
IRem I2AKYKUU 

If @*5G@ O mn Then Exit Sub 
B0)L2: 
IRem PRVLG 

IRem PRVLG 

CTRJ*310*280*29@J2_END = False 
IRem PRVLG 

CTM*3IO*280*29@_I2_ERR = False 
B0JL3: 
IRem PRVLG 

If CTR_@*31@_@X280*29@_12_END = False Then 

GoTo B0X_4 
End If 

GoTo B0X_5 
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ttm-^i? b)MDM : 0 3 9 -2 

A^J37>H(DI 2 (f§Sf 0 4 5 0-2) 

B0X_4: 
Rem PRVLC 

Rem PRVLG 

CTIL_@a£3 l§.OX28i.iX29§.I2JBND = True 
Rem PRVLG 

CTRLJ«X30§ - 9X28§JX29§JTSJRAHSITI0NJLG = CTRLJW30i_©%28©JX29§_STSJRANSITION_FLG + 1 
GoTo BOX.E 

B0X_5: 
Rem PRVLG 

If CTR_«%31I_«X28®J*29§J2JND = False Then 

GoTo B03LB 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTR_8*310*280*29§_I2_ERR = True 
Rem PRVLG 

CTRLJW30MX318_«IS28«JX29©.§X02«JIOT.VAL1DJLG = True 
GoTo BOX_E 

B0X_7 : 
Rem PRVLG 

CTRLJ§X30§J*29§JNGJLG = True 
GoTo BOXJ 

BOX J: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
|Rem PUB4N4 

Private CTR_@X310X280*2904_END As Boolean 
IRem PUB4N4 

Private CTOX31§„§X28MX29@_01-CNT As Integer 
IRem PUB4N4 

Private CTR_@X310*280*2904_ERR As Boolean 
IRem PUB1N4 

Private W@X305OX3 150*2850X2950*2006 As @X235@ 
IRem PUB5C4 

Private CTRL_W@%30OX28O%29OTS_TRANSlTI0NJLG As Integer 
IRem PUB5Y4 

Private CTRLJ'8X30OX28OX29OTS_TRANSITI0NJLG_P As Integer 
IRem PUB5B4 

Private CTRLJ'@X30OX28OX29@_STS_TRANSlT10NJLG_PP As Integer 
[Rem 04AKYARA 
Rem 04PKYARA 
IRem PUB6F4 

Private CTRLJ@«30OX31OX28OX29OX02O0T_VALIDJLG As Boolean 
IRem ^DEFEND 
Rem #DEFPRV 
IRem PRY7R4 

Private CTRL.J@X30OX2 90J NG_FLG As Boolean 
IRem $PRV2ff4 

@xm@ 

Rem $PRV2E4 
Rem SPRV4W4 

\mm 

Rem $PRV4E4 
iRem #DEFEND 

Public Sub MainO 
|Rem #VECREP Private Sub 04_8X3 1OX28OX29OX02OX076 0 

B0X_1: 
IRem 04AKYKUU 

If @S50@ O @X07@ Then Exit Sub 
IRem 04PKYKUU 

If @X50@ O @X07@ Then Exit Sub 
B0X_2: 
IRem PRVLG 



IRem PRVLG 

CTR_@X310X280X2904_END = False 
IRem PRVLG 

CTOX310X280X2904-.ERR = False 
B0X.3 : 
IRem PRVLG 

If CTO*310*280X2904_END = False Then 

GoTo BOXjl 
End If 

GoTo BOXJ 

B0X_4: 



miE#2 0 0 4- 



3 0 9 9 19 2 



4f Jffi 2003-330797 



192/ 



im 1 9 4] 

#^-£^£7 WKDS : 0 4 0-2 

ffi^J-7>HCOQ4 (gfj#j|0 4 6 0- 2) 

Rem PRVLG 

8X153© 
Rem PRVLG 

CTR_@X310*28©_®*2904JND = True 
Rem PRVLG 

CTRLJ§X30M%28§.«X298JTS^TRAHSITI0NJFLG = CTRLJ«X30«_«X28§_§J!298JTS«TRANSITIONJ ? LG + 1 
GoTo BOX J. 

B0X.5 : 
Rem PRVLG 

If CTR_8*31OX280_@X29@J)4_END = False Then 

GoTo B0X_6 
End If 
GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

CTRLJ'@X30OX31OX28OX29OX02O0TJ f ALID„FLG = True 
Rem PRVLG 

CTR_§X31O*28O*29«_04_ERR = True 
GoTo BOX J 

BOO : 
Rem PRVLG 

CTRLJ'@*30OS29@JNG_FLG = True 
GoTo B0X.E 

BOX J: 
End Sub 

Rem *** PRCEND 
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eg§OR4 (f»^0 4 7 0-l) 

Option Explicit 
Rem 8DEFPUB 
Rem PUB5C4 

Private CTRL3@*30O»28@_^29@_STS^TRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Private CTRL_W^30O%28O«29@^STS_TRANSIT10N_FLG_P As Integer 
Rem PUB5B4 

Private CTRL3^30O^28O%29^STS,TRANSITI0NJLG_PP As Integer 
Rem PUB6F4 

Private CTRLJ@X30O3531O»288^29O«02@_N0TJ , ALID^.FLG As Boolean 
Rem #DEFEND 
Rem SDEFPRV 
Rem *PUBRT 

Private CTRJIEXTJ* ALLET_I DJ1EW As String 
Rem PRY7R4 

Private CTRL_W@S30@_@*29@JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUH_String As String 
Rem $PRV2W4 

mm 

Rem $PRV2E4 
Rem SPRV4W4 

mm 

Rem $PRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem #VECREP Private Sub R4_@»3 l@_@5K28@_@5&29@_@%02@ 0 
B0X_1: 
Rem PRVLG 

If CTR_NEXT_PALLET_I D _NEW = CNS^NOT_KUH_String Then 

GoTo B0X_2 
End If 

GoTo BOX J 

BOXJ: 
Rem PRVLG 

CTRJ*EXT_PALLETJD_NEff = ' @»100@* 

B0X_3: 
Rem PRVLG 

If CTR_NEXT _PALLET_ I D_NEW O CNSJWJttJILString Then 

GoTo B0X_4 
End If 

GoTo B0)L5 

B0X_4 : 
Rem PRVLG 

CTR_NEXT_PALLET_ID_NEW = CTRJ*EXT_P ALLETJ D_NEff 
GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

If CTRJ[EXT_PALLET_ID_NEW = CNSJWTJOJH_String Then 

GoTo B0X_6 
End If 

GoTo B0XJ7 

B0X_6 : 
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m$&<DR4 (fl#^Q 4 7 0- 2) 

Rem PRVLG 

CTRL_W@%30@_@%3 1 @_@%28@_@%29@_@5S02@_N0T_VALID_FLG = True 
GoTo B0X_E 

B0X_7 : 

Rem PRVLG 

CTRL_W@%30@_@*29t_ING_FLG = True 

GoTo B0X_E 

B0X_E: 
End Sub 

Rem *** PRCEND 
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^gSCOR 2 C 0 4 8 0-1) 

Option Explicit 
Rem #DEFPUB 
Rem PUB5C2 

Private CTRL_W«»30OX28e_iX29@_STS_TRANSITI0NJLG As Integer 
Rem PUB5Y2 

Private CTRLJ^30O*28O*29@_STS_TRANSITI0N_FLG_P As Integer 
Rem PUB5B2 

Private CTRL.ff©»30@_@X28O«29@_STS.TRANSlTI0N_FLG_PP As Integer 
Rem PUB6F2 

Private CTI0,jm30O5531O»28@_^29O»02O0T_VALlD_.FLG As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem *PUBRT 

Private CTR_NEXT_PALLET_I D_NEW As String 
Rem PRV7R2 

Private CTRLJ«30O*29@JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJWJOJH_String As String 
Rem $PRV2W2 
i*152§ 
Rem $PRV2E2 
Rem $PRV4W2 
8X155® 
Rem $PRV4E2 
Rem ^DEFEND 

Publ ic Sub Main 0 

Rem SVECREP Private Sub R2C.@X3I@_@%28OSK29O%02@ 0 
B0X_1: 
Rem PRVLG 

If CTR_NEXT_P ALLET_ I D_NEW = CNSJIOTJ(UH_String Then 

GoTo B0X_2 
End If 

GoTo BOX _E 

B0X_2: 
Rem PRVLG 

exist 

Rem PRVLG 

CTR_NEXTJ>ALLET_ID_NEW = '@S10W 
B0X_3 : 
Rem PRVLG 

If CTR_NEXTJ>ALLETJDJIE1& O CNSJIOTJvWLString Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

6*1536 
Rem PRVLG 

CTRJIEXT _PALLET_I D_NEW = CTR.NEXTJALLETJDJIEW 
GoTo BOO 

B03L5 : 
Rem PRVLG 

If CTRJOTJALLETJQEW = CNS_N0TJOJILStnng Then 
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GoTo B0X_6 
End If 

GoTo B0X_7 

BOX J: 
Rem PRVLG 

CTRLjm30O^31@_^28Or29O»02O0T_VALlD_FLG = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRLjm30OS29@JNGJLG = True 
GoTo BOXJ 

BOX_E: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
IRem PUB5C2 

Private CTRLJ§X30§_«X28i_§X29§_STSJRANSITIONJLG As Integer 
IRem PUB5Y2 

Private CTRL_m30O«28@_@^29@_STS_TRANSITI0N - FLG_P As Integer 
IRem PUB5B2 

Private CTRL_m30O»28OX29@^STS_TRANSITI0NJLG„PP As Integer 
IRem PUB6F2 

Private CTI^3@«30@_@X31O«28OX29@_@%02O0TJ ? ALID_FLG As Boolean 
IRem #DEFEND 
Rem SDEFPRV 
IRem *PUBRT 

Private CTR_NEXTJ ALLET_ I D_NEW As String 
IRem PRV7R2 

Private CTRLJ*@*30O*29@JNG_FLG As Boolean 
IRem PUBKU 

Private CNSJK)T_KUH_String As String 
[Rem SPRY2W2 
@S152@ 
Rem SPRY2E2 
Rem SPRY4W2 
@5U55@ 
Rem SPRV4E2 
I Rem #DEFEND 

Public Sub Main 0 
[Rem #VECREP Private Sub R2JX31O*28M%29§_§*02§ 0 

B0X_1: 
IRem PRVLG 

If CTR_NEXT_PALLET_I D_NEW = CNS JOT JCOHJl ring Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
IRem PRVLG 

CTRJIEXT _P ALLET_I D_NEW « *@%100@' 
BOX J : 
IRem PRVLG 

If CTR_NEXTJ»ALLET_ID_NEW O CNSJOTJOJHJString Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B03L4: 
IRem PRVLG 

CTR_NEXTJ>ALLETJDJO = CTR_NEXTJ>ALLETJD_NEV 
GoTo B0X_E 

B0X_5: 
IRem PRVLG 

If CTRJIEXLJALLEUDJIEW = CNSJTOTJOJlLString Then 

GoTo B03L6 
End If 

GoTo B03L7 

B0X_6 : 



tBSE^ 2004-3099192 



*Wm 2003-330797 



^-v: 198/ 



[IB 2 0 0] 

WHDSl : 0 4 3-2 

8gg§6DR2 (ffgaH»0 4 9 0- 2) 

Rem PRVLG 

CTRL3@SK30@_@5531O5B28O^29@_@^02O0TJ 7 ALIDJLG = True 
GoTo BOX_E 

B03L7: 
Rem PRVLG 

CTRLJ'§X30MX29§_INGJ ? LG = True 
GoTo BOX_E 

BOXJE: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem 3DEFPUB 
IRem PUB5C3 

Private CTRLJ'§X30§.S%28MX29i_STS.TRANSIT10NJLG As Integer 
IRem PUB5Y3 

Private CTRL_W@X3 0©_§SI52 8@_@*29@„STS_TRANS I T 1 ON_FLG_P As Integer 
IRem PUB5B3 

Private CTRL_WOI530§JX28«_©X29i_STS_TRAHSITIONJ ? LGJP As Integer 
IRem PUB5C2 

Private CTRLff 2_®X2 8§_©SI52 9@_STS_TRANS I T 1 ON.FLG As Integer 
IRem PUB5C4 

Private CTRLJ4_§X28MX29»JTSJRANSITI0NJLG As Integer 
IRem PUB6F3 

Private CTRLJ©«30§JX31§J«28M%298_§%02O0T_VALIDJ f LG As Boolean 
IRem #DEFEND 
Rem #DEFPRV 
IRem *PUBRT 

Private CTRJ*EXT_PALLBT_IDJIEW As String 
IRem PRV7R3 

Private CTRL_W@«30O*29@_ING_FLG As Boolean 
IRem PUBKU 

Private CNSJlOTJMLString As String 
IRem SPRV2W3 

\mm 

Rem $PRV2E3 
Rem $PRY4ff3 
pi65@ 
Rem $PRY4E3 
IRem #DEFEND 

Public Sub MainO 
|Rem #YECREP Private Sub R3MX31§_W28«_§X29©_8XO20 0 

B0X_1 : 
IRem PRVLG 

If CTRJJEXT _P ALLETJ DJfEW = CNSJWTJOJH_String And „ 
IRem PRVLG 

(CTRLJ4^W28«JX298.STSJRANSITI0NJLG O 0 Or _ 
IRem PRVLG 

CTRL_ff2_@»28O%29^STS_TRANSITI0NJLG O 0) Then 
GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2 : 
IRem PRVLG 

CTRJiEXTLPALLETJOEW = 'iXlOOf 
BOX J: 
IRem PRVLG 

If CTR_NEXT_PALLET_I D_NEW O CNSJ*0TJOJH_String Then 

GoTo B0X.4 
End If 

GoTo B0X_5 

B0X_4: 
IRem PRVLG 

CTOEXT_PALLET_ID JJEW = CTQLXT^PALLETJ DJEW 
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GoTo B0X_E 

B0X_5 : 
Rem PRVLG 

If CTR_NEXT_PALLETJD_NEW = CNSJWTJCUH_String Then 

GoTo B0X_6 
End If 

GoTo B0XJ7 

B0X_6 : 
Rem PRVLG 

CTRLjm308_@^31O^28O»29O^02O0TJ 7 ALID_FLG = True 
GoTo BOXJ 

B0X_7: 
Rem PRYLG 

CTRLJfr@*30O*29@JNG_FLG = True 
GoTo B0X_E 

BOX JE: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem #DEFPUB 
Rem PUB4N3 

Private W@%30@_@X316_@X286_@X29O*02@ As Integer 
Rem PUBIN3 

Private tt®X305@_Q*3 150*2850*2950*200© As @%235@ 
Rem PUB5C3 

Private CTRLJ"«X30«^M28§_iX29§JTSJRANSITIONJ ? LG As Integer 
Rem PUB5Y3 

Private CTRLJ§X300«8«_§X2MJTS_TRANS1T10N_FLGJ As Integer 
Rem PUB5B3 

Private CTRLJ@*30O*28O*29@_STS.TRANSITI0N_FLG_PP As Integer 
Rem PUB6F3 

Private CTRL_W@*30O*31O*28O*29O*02O0OALID_FLG As Boolean 
Rem SDEFEND 
Rem SDEFPRV 
Rem PRV2T3 

Private W6SK30@_@S631@_@*28O*29O*Q2@_wk As Integer 
Rem PRY7R3 

Private CTRLJf0X3OO*29§JNG_PLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUH_Integer As Integer 
Rem SPRV2W3 
@%162® 
Rem $PRV2E3 
Rem $PRV4W3 
@*165@ 
Rem SPRV4E3 
Rem #DEFEND 

Public Sub NainO 

Rem #VECREP Private Sub L3_@X31@_@*28®_@*29O*02@ 0 
B0X_1: 
Rem PRVLG 

If W@X30O*3 10*280*290*02® = CNSJTOTJOJILInteger Then 

GoTo B0X_2 
End If 

GoTo BOX.E 

B0X_2: 
Rem PRVLG 
6X169 

B05L3: 
Rem PRVLG 

If W@*30O*31O*28O*29O*02Ok O CNS.NOTJCUHJnteger Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRVLG 

ff@*30O*3 10*280*290*02® = W@X30®__@X31O*28@_@X29®_©*02®.wk 
Rem PRVLG 

CTRLJteX30O*28@_@X29OTSJMNSITI0NJ 7 LG = CTRL_W®*30@_®*28@_@*29@_STS_TRANSITIONJLG + 1 
GoTo BOXJE 

B0X_5 : 
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Rem PRVLG 

I f CTRLJ'@X30©_tX28OX29§_STS_TRANSm0N_FLGJ 
= CTRL„W@*30@_^28O*296_STS_TRANSITI0N_FLGJ > P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
Rem PRVLG 

Cmj«X30e_«X31©_«X28©JX29§_iX02§J«OT_VALIDJ ? LG = True 
GoTo BOO 

BOO: 
Rem PRVLG 

CTRLJ"@*30OS298JNG._FLG = True 
GoTo B0X_E 

BOX J: 
End Sub 

Rem *** PRCEND 
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[Opt ion Explicit 
Rem #DEFPUB 
IRem PUB4N4 

Private W9X309_.9X319_9%289..9X299_9X029 As @*23§ 
IRem PUBIN4 

Private W9X3059_9%3I59_9X2859_9X2959JX200§ As 9X2359 
IRem PL«B5C4 

Private CTRLJ'§X30UX28iJX29§.STSJRANSITIONJLG As Integer 
IRem PUB5Y4 

Private CTRLJ'IX30M«28®JX29«_STSJRANSIT]ONJ f LG_P As Integer 
IRem PUB5B4 

Private CTRL_ff@X30MX28®„©JK29®„STSJRANSITIONJLG_PP As Integer 
IRem PUB6F4 

Private CTRLJ"8X30O»31@^28@_@5S29O«02O0TJ 7 ALIDJLG As Boolean 
IRem #DEFEND 
IRem PUB4B4 

Private W9X3009_9X310f_9X280§_eX290e_9X2009 As 9X239 
IRem PUB4N3 

Private W3_9X31@_9X289_9X299_9X029 As Integer 
IRem PUB4N2 

Private W2_9X31@_9X289_9X299JSX029 As 9X239 
IRem #DEFPRV 
IRem PRV2T4 

Private W9X309_9X319_9X289_9X299_9X029_wk As 9X239 
IRem PRV7R4 

Private CTRLJ'9X309_JX299_ING_FLG As Boolean 
IRem *PUBKU 
Private CNSJTOTJOJILString As String 
Private CNS_N0TJO]H_Integer As Integer 
Private CNS_NOT_KUOoolean As Boolean 
Private CNSJIOOUHJLong As Long 
Private CNSJOTJCUH.S ingle As Single 
Private CNSjNOTJCuTUtouble As Double 
Private CNSJlOTJCOLYa riant As Variant 
Private CNS_NOT_KUH_Currency As Currency 
Private CNSJ*OTJCUH_Byte As Byte 
Private CNSJOTJCUR-Date As Date 
[Rem IPRV2W4 
9X 1 729 
Rem SPRV2E4 
Rem IPRV4W4 
9X1829 
Rem $PRV4E4 
IRem #DEFEND 

Public Sub MainO 
|Rem #VECREP Private Sub L4_9X319_9X289_@X299_9X029 0 

BOXJ: 
IRem PRVLG 

If W9X309_9X319_9X289_9X299_9X029_wk = CNSJ10T_KmL9X239 And _ 
IRem PRVLG 

W3_9X319_9X28@_9X299_9X029 = 9X079 Then 
GoTo B0X_2 
End If 
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G0T0 B0X_E 

B0XJ2 : 
Rem PUB IN 

If W@*305O*3 15O*285O*295O*200@ = CNS_N0TJ0JO*235@ Then Go To BoxJ 
Rem PRYLG 

W@*30O*3 lO*28O*29O*02@_wk = W@*305O*3 1 50*2850*2950*2006 
B0X_3 : 
Rem PRYLG 

If W@*30O*31O*28O*29O*02@_wk O CNS_N0T_KUO*23@ Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4 : 
Rem PRYLG 

W@*30O*3 10*280*290*020 = fl@*30O*31O*28O*29O*02Ok 
Rem PRYLG 

CTRLJ'@*30O*28O*29OTSjrRANSITI0N_FLG = CTRL_W@%30O«28OX29OTS.TRANSITI0N_FLG + I 
GoTo BOX J 

B0X.5 : 
Rem PRYLG 

I f CTRLJ^30O^28O*29@^STS_TRANSITI0NJLG_P 
= CTRLJ@%30O«28O»29OTS_TRANSITI0NJLGJP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6 : 
Rem PRYLG 

CTRLJ"@*30O*31O*28O*29O*02O0TJUIDjaG = True 
GoTo BOX.E 

B0X_7 : 
Rem PRYLG 

CTRL_W@*30O*29§_ING_FLG = True 
GoTo BOX_E 

BOO: 
End Sub 

Rem *** PRCEND 
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Option Exp licit 
Rem 3DEFPUB 
Rem PUB4N3 

Private ttflX306_6X316_§X28§_6X2g©_eX026(§X26§. 6X276) As Integer 
Rem PUB1N3 

Private B6X3056_6X315&Jff2859_6X2956_ex2006 (6X2659. 6X2756) As 6X2356 
Rem PUB5C3 

Private CTRLjreX306_§X2K8_§X296_STS_TRANSlT10>LFLG As Integer 
Rem PUB5Y3 

Private CTRLjr6X306_©X28e_6X299_STSJRANSlT10N_PLGj > As Integer 
Beta PUB5B3 

Private CTRLJ6X30©_6X286_6X296_STS_TIttNSIT10NJ^GJ ) P As Integer 
Ren PUBBF3 

Private CTRL_V§X30§^3ie_eX28MX29e_«;02e_NOT_VALID_FLG (6X261. §56276) As Boolean 
Ren 3DEFEND 
Rem 3DEFPRY 
Rem PRV2T3 

Private V§X30§_eX3ie_«X28§_©X29e_eX02e_wk{«26§.W27e) As Integer 
Rem PRV7R3 

Private CTRLjreX30e_6X29e_lNG_FLG As Boolean 
Rem PUBKU 

Private CNSJiQTJttJHJnteger As Integer 

Private Gyou as integer 

Private Retu as Integer 

Private Uti_Cnl as Integer 

Private Solo_Cnl as Integer 

Private Ulijiax as Integer 

Private Sotojlax as Integer 
Rem SPRY2M 
1X1626 
Rem $PRV2E3 
Rem $PRV4W3 
6X1 656 
Rem IPRY4E3 
Rem SDEFEND 

Public Sub MainO 

Rem 3VECREP Private Sub L3_§X316_6X286_6X29§_6X02§ 0 

Gyou = 0 

Retu * 0 
Rem PRVLG 

If 6X346 < 6X356 then 
Rem PRVLG 

Ulijiax * 6X266 

Rem PRVLG 

Sotojlax = 6X276 
End If 

Rem PRVLG 

If 6X346 > 6X356 then 
Rem PRVLG 

Ulijiax = 6X276 

Rem PRVLG 

SoloJIax = 6X266 
End If 



tBIE# 2004-3099192 



4M 2003-330797 



^-y: 206/ 



[H2 0 8] 

h;i/COS> : 0 4 7 -2 

mm (Kcoar^Tc) ym^xisa^/^<iB^i^^(0L3 (gara^o s 3 o- 2) 

UU.Cnl * 0 ~" ' 

Solo.Cnl = 0 
no Until Soto.Cnt * SoloJJax + 1 
UlLCnl = 0 
Rem PRVLG 

I f ©*34© < §*356 then 
Gyou = UlLCnl 
Relu = Soio_Cnl End If 

Rem PRVLG 

1 f ©X34© > ©X35& Ihen 
Gyou = Solo_Cnt 
Relu = Uti.Cnt End If 
Do Until UlLCnl = UliJIax 4 I 
B0X.1: 
Rem PRVLG 

If W©X3QM%318_e*28e_eX29©_8%02§ (Gyou. Relu) = CNSJ«)T_KUfLInleger Then 
GoTo B0X_2 
End If 

GoTo BOX J 

B0X_2: 
Rem PRVLG 
9X169 

B0X.3: 
Rem PRVLG 

If ff©X3Q§_§X31M3S28M*29M35026_wk{Gyou.Retu) O CNSJJOTJUIHJnteger 
Then GoTo B0X_4 
End If 
GoTo B0X_5 
BOX J: 
Rem PRVLG 

WQ%30©_©S31§_©X289_©*299_§X02©(Gyou, Relu) = W©*30&_©*31§_©m§_©X29©_eS02&jvk{Gyou, Relu) 
Rem PRVLG 

CTRL_m30OX28MX29©_STS_TRANSITI0NJFLG = CTRLJ©X30Q_©m8_e%29©_STS.JRANSITIONJ ? LG 4 ] 
GoTo BOXJE 

B0X.5: 
Rem PRVLG 

If CTRLjr©*308_©X28©_§X29§_STS_TRANSmON_FLGJ ) 

« CTRL_W§*306 - §X28M*296_STS_TRANSITION_FLG_PP Then GoTo BOX J End If GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTRL_ff8X30S_«X31§_W28e_8X29MX02§_NOT.VALID_FLG(Gyou.Retu) = True 
GoTo BOO 

B0X_7: 
Rem PRVLG 

CTRL_ff§*30©_©X298_ING_FLG = True GoTo B0X_E 
B0X_E: 

UtLCnl = UlLCnt + 1 

Rem PRVLG 

If 6X346 < 6*358 then 
Gyou = UtLCnt 
Relu = Soto.Cnt End If 

Rem PRVLG 

If 0X34© > &K358 then 
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Gyou = SotoJ)nt 

Relu = UtLCnt End If 

Loop 

Soto.Cnl = Solo„Cnt + l 
Rem PRVLG 

If @%34@ < @*35@ then 
Gyou = UtLCnt 
Retu = Soto_Cnt End If 
Rem PRVLG 

If @*34@ > 8*35@ then 
Gyou = Soto_Cnt 
Retu = UtLCnt End If 

Loop 

Gyou = 0 

Retu = 0 

UtLCnt = 0 

SotoJ)nt = 0 

Utijlax = 0 

SotoJIax = 0 
End Sub 
Rem *** PRCEND 
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Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private ff6X306_6X3 \QJ&% 2 8§_§X29O%02 § (GX2G&. 655276) As 6X236 
Rem PUB1N4 

Private B@X305&_6X3156_6X2856_6X295&_GX20Q6 (6X2656. 6X2756) As 6X23S& 
Rem PUB5C4 

Private CTRLJ6X308.eX286_6X296_STS_TRANSlTlON.FLG As Integer 
Rem PUB5Y4 

Private CTRLJ6X306_6X286_6X296_STS_TRANSmON_FLGJ > As Integer 
Rem PUB5B4 

Private CTE.WeX306_eX286_eX298_STS_TRANSITlON_FLG_PP As Integer 
Rem PUB6F4 

Private CTRLJJ6X 30 ©_6X 3 1 6_eX28e_eX298_ex 026_NOT_YAL1D_FLG (6X 2 66. 6X27 6) As Boolean 
Rem 3 DEFEND 
Rem PUB4B4 

' Private WeX30Q8_6X3 106.6X2 8 06.9X29 06.6X2006 (6X266. 6X276) As 635236 
Rem PUB4N3 

Private ff3_6X3 I 6.6X2 88.6X2 98.6X026 (6X266. 6X276) As Integer 
Rem PUB4N2 

' Private fl2_eX3ie_9X28G_6X298_6XQ2e (6X266, 6X276) As 6X236 
Rem SDEFPRV 
Rem PRV2T4 

Private W8X308_eX3ie_6X286_6X298_6X02e_wk (6X266. 6X276) As 6X236 
Rem PRV7R4 

Private CTRL.* 6X308.8X2 96. I NG_FLG As Boolean 
Rem tPUBKU 

Private CNSJK>T_KUH_Slring As Siring 

Private CNS_NOT_KUHJnteger As Integer 

Private CNSJJOT_KUH_Boolean As Boolean 

Private CNS_NOTJvUH_Long As Long 

Private CNSJJOT_KUH_S ingle As Single 

Private CNSJJOTJ«JHJ>ouble As Double 

Private CNS_N0TJOJH_Ya riant As Variant 

Private CNS_NOT_KUlLCurrency As Currency 

Private CNSJiOTJOIH_Byte As Byte 

Private CNS_NOT_KUHJ>ale As Date 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti.Cnt as Integer 

Private Soto.Cnt as Integer 

Private UtiJIax as Integer 

Private SoloJIax as Integer 
Rem SPRV2V4 
6X1726 
Rem SPRV2E4 
Rem $PRV4W4 
6X1826 
Rem SPRV4E4 
Rem J DEFEND 

Public Sub WainO 

Rem *VECREP Private Sub L4_6X3ie_6X289.eX29e_eX029 0 
Gyou = 0 
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Retu = 0 
[Rem PRVLG 

If §2346 < 6X356 then 
iRen PRVLG 

Utijlax = 6X266 

|Rea PRVLG 

Solojiax = 6X276 
End If 
I Rem PRVLG 

U 6X348 > 6X356 then 
| Rem PRVLG 

UUJax « 6X276 

|Rea PRVLG 

Sotojax 3 6X266 
End U 
Ulijnl = 0 
Soto.Cnt - 0 
Do Until Solojnl = Sotojax f 1 
Uti.Cnl = 0 
iRem PRVLG 

U 6X346 < 6X356 then 
Gyou = UtLCnt 
Retu - Soto_Cnt 
End If 
IRem PRVLG 

U 6X346 > 6X356 then 
Gyou = Sotojnl 
Retu = UtLCnt 
End U 

Do Until UtLCnt = Utijax * I 
BOXJ: 
|Rem PRVLG 

If W6X309JX3iejX288JX298JX026_wk (Gyou, Retu) = CNS_N0T_KUH_6X236 And _ 
|Rea PRVLG 

W3_8X316_6X286_6X296_6X028 (Gyou, Retu) = 6X076 Then 
GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 
iRem PUBIN 

If W6X3056JX3156JX285ejX2956JX2008lGyou. Retu) = CNS_N0TJUHJX2358 Then Go To Box J 
IRem PRVLG 

ff6X308JX318JX286JX298JX02e„wk (Gyou. Retu) = ff6%3058JX315ejX285e__6X295ejX2008 (Gyou. Retu) 
BOXJ: 
iRem PRVLG 

If ffeX308JX3iejX286JX298JX026_wk (Gyou. Retu) O CNSJ0TJ01OX236 Then 

GoTo BOXJ 
End If 

GoTo BOXJ 

BOXJ: 
IRem PRVLG 

W8X308JX3I8_eX286JX298JX02e(Gyou.Retu) = ft8X308JX3 1 8^6X288 JX298_6X026_wk (Gyou. Retu) 
IRem PRVLG 
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ttm-^Z : 0 4 8-3 

JESS (K0WK±7t) /a^/MBW»/g««/ttff»g)L4 (gl^0 54 0-3) 

CTRLJ , iX30§JX28MX29§ - STSJRANSITIONJLC = CTRLJM30O*28§„§X29@_STSJRANSITI0NJLG 4- 1 
GoTo BOXJ 

B0X_5 : 
iRem PRYLG 

I f CTRL_WeX30§_©X28e_tX29§_STS JRANS I T 1 GNJLG J 
= CTRLVe*3O^tX28§_eX290_STSJRANSITlONJLG_PP Then 

GoTo BOXJi 
End If 

GoTo BOXJ? 

BOXJ: 
IRem PRYLG 

CTRLJ , W30©_§X31MX28§_«X29§_§X02§J10T_VALIDJ f LG(Gyou. Retu) = True 
GoTo BOXJ 

B03L7 : 
IRem PRYLG 

CTRL_W@X308J*29@_INGJLG = True 
GoTo BOXJ 

BOO: 

Utijnt = Utijnt + 1 

IRem PRYLG 

I f @%34@ < @*35@ then 
Gyou = Utijnt 
Relu = Sotojnt 
End If 

IRem PRVLG 

If @S34@ > @S35@ then 
Gyou = Sotojnt 
Retu = Utijnt 
End If 

Loop 

Sotojnt = Sotojnt t 1 
IRem PRYLG 

If mm < ®%m then 
Gyou = Utijnt 
Retu = Sotojnt 
End If 
IRem PRYLG 

If @%34@ > mm then 
Gyou = Sotojnt 
Retu = Utijnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Utijnt = 0 
Sotojnt = 0 
Utijfax = 0 
SotoJIax = 0 
|End Sub 
Rem *** PRCEND 
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ie& (Kcpr^Tt) /ati/mFm/^mft/mftmoi. 3 cgins^ o sso-n 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N3 

Private W8K30O*31OSm<O*29OS02@ As Integer 
Rem PUBIN3 

Private W@%305O*315O*285OX295O*200@ As @*235@ 
Rem PUB5C3 

Private CTRLJ@X30OX28@_@«29@_STS_TRANSITI0NJLG As Integer 
Rem PUB5Y3 

Private CTRL_W@*30O«28O«298_STS^TRANSIT10N_FLG_P As Integer 
Rem PUB5B3 

Private CTRLjm30O*28OX29@JTS„TRANSITI0N - FLGJP As Integer 
Rem PUB6F3 

Private CTRL3^30O*31§_@«28OSS29OX02@_N0TJ'ALIDJLG As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRY2T3 

Private W@*30O%31O*28O*29OmOk@*07@ As Integer 
Rem PRV7R3 

Private CTRLjr§*30O*29@JNG_FLG As Boolean 
Rem PUBKU 

Private CNS.NOT.KUHJnteger As Integer 
Rem $PRV2W3 

mm 

Rem $PRV2E3 
Rem $PRV4K3 
@*165@ 
Rem $PRV4E3 
Rem SDEFEND 

Public Sub MainO 
Rem #VECREP Private Sub L3J*31@_@*28@_@%29@_@*02@ () 

BOXJ : 
Rem PRVLG 

If W@^30@_@^31OSS28O«29O«02@ = CNSJWT_KUH_ Integer Then 

GoTo B0X_2 
End If 

GoTo BOX_E 

B0X_2 : 
Rem PRVLG 

®%m 

B0X_3: 
Rem PUBL3F 

If ffeX30OX31O*28@_@X29OX02@_wk@X07@ = 1 Then GoTo BOXj! 
GoTo B0X_5 

B0)L4: 
Rem PUBL3F 

If ff@*30M*31O*28O*29M*02@j»k@S07@ = 1 Then W@«30O«31@.@X28OS529@_@X02@ = @*078 
Rem PRVLG 

CTRL_W@»30O5K28O*29@_STS„TRANSITI0N_FLG = CTRL_W§«30@_@^28@_@X29©^STS.TRANSITIONJLG + 1 
GoTo BOXJ 

BOXJ : 
Rem PRVLG 

I f CTRL_V@X30MX28OX29@_STS_TRANSITI0N_FLG_P 
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h)l(DSl : 0 4 9-2 

iem (k<p»&7c) /mi3/9jmm/mmG/tfiftf!k<oL 3 (ggggo 550-2) 

= CTRLjeX30MX28§ - §X29e_STS_TRANSITI0NJ f LGJ , P Then 

G0T0 B0X_6 
End If 

G0T0 B0X_7 

B0X_6 : 
Rem PRYLG 

CTRLJ^30g_@%31O^28MX29O9S02O0T„VALID_FLG = True 
G0T0 BOX_E 

B0X_7 : 

Rem PRYLG 

CTRL_W§X30O*29@jNGJLG = True 

G0T0 BOO 

BOX J: 
End Sub 
Rem *** PRCEND 
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tim-te^? h)i<z>m : 050-1 

[flpTion Explicit 
Ren SDEFPUB 
kern PUB4N4 

Private TOS306_8X3ie_6X28MS29M*026 As 6X236 
iRem PUB1N4 

Private ra305&_§X3l5e_8X285e_eX2956_6X2Q08 As 6X2356 
IRem PUB5C4 

Private CTRL_^306_eX28&_6X298_STS_TRANSITlONJ ? LG As Integer 
IRem PUB5Y4 

Private CTRL_m3 06_§X2 86.6X2 96.STS.TRANS I T10N_FLG_P As Integer 
|Rem PUB5B4 

Private CTRLJ6X306.6X286_eX29e_STS.TRANSITlON_aG.PP As Integer 
IRem PUB6F4 

Private CTRL_ffe%30MX31&„§XZ8©_&X29e_9X028JOT_VALIDJ ; LG As Boolean 
[Rem SDEFEND 
IRem PUB4B4 

Private W6X 3006_6X3 106.6X2 806.6X2 90 §_6X 20 06 As 6X236 
iRem PUB4N3 

Private K3_eX3ie_eX288_6X298_8X02e As Integer 
IRem PUB4N2 

Private ff2_eX318.8X288_6X298_©X028 As 9X238 
IRem #DEFPRY 
|Rem PRV2T4 

Private WeX30e_eX316_6X28e_eX296_6X02e_wk As 6X236 
IRem PRV7R4 

Private CTRL_E6X 308.6X2 98.1 NG.FLG As Boolean 
IRem *PUBKU 
Private CNS.NOT_KUH_String As String 
Private CNS_NOT_KUHJnleger As Integer 
Private CNS_N0TJOJH_Boolean As Boolean 
Private CNS.NOTJCUILLong As Long 
Private CNSJM)T_KUH_S ingle As Single 
Private CNS_NOT_KUHJ>ouble As Double 
Private CNS_NOT_KUH_Varianl As Variant 
Private CNS_.NOT_KUH_Currency As Currency 
Private CNS_NOT_KUH_ByLe As Byte 
Private CNS_NOT_KUHJ)ate As Date 
[Rem IPRY2W4 
6X1726 
Rem SPRY2E4 
Rem SPRV4W4 
6X1826 
Rem $PRV4E4 
Uem #DEFEND 

Public Sub MainO 
[Rem #VECREP Private Sub L4.6X3 19.6X2 8e_6X29&_eXQ2§_8X07© 0 

BOX.t: 
IRem PRYLG 

If VreX308_eX3ie_6X286_6X298_eX02e.wk * CNSJ*0T_KUH_6X23e And _ 
Rem PRYLG 

«3_6X316_eX286_6X298_eX026 = 6X076 Then 
GoTo B0.O 

End If 
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t$%k-£'<i7 h JM&S : 0 5 0-2 

iGoTo BOX J 
I0X_2: 
>® PUB IN 
If W@X305OS3l5O*285O*295@_@%200@ = CNS_N0T_KML@K2358 Then Go To Box J 
?m PRVLG 
V8*30«JX31«_e%28MX29§_8%026_wk = V8X305ejX3I5#^§X285§_§X295ejX2008 
I0X_3: 
em PRVLG 
If W@X30i_@553ie_iX28OX29OSB02Mk O CNSJ0TJUJH_@%23@ Then 
GoTo BOXjl 
End If 
GoTo B0X_5 
B0X.4: 
em PRVLG 
ff@X30M«31MX28®JX29OX02§ = W«*30i_«X31MX28iJX29§_§X02«_wk 
em PRVLG 
CTRLJf©X30OX28O«29i_STS„TRANSITI0NJLG = CTRL3§X30@^28@J«296_STS_TRANS1TION_FLG + 1 
GoTo B0X_E 
BOX J: 
tern PRVLG 
I f CTRLJ§X30§JX28OX29§JTS_TRANSITI0NJLGJ > 
= CTRLJ^30O^28O»29@_STS - TRANSITI0N_FLG_PP Then 
GoTo B0X_6 
End If 
GoTo B0X_7 
B0X^6: . 
lem PRVLG 
CTRLjm30@^31@_@»28O«29O^02O0TJ T ALIDJLG = True 
GoTo BOX J 
BOXJ : 
Rem PRVLG 
CTRL_W@X30MX29i_INGJFLG = True 
GoTo BOX J 
BOX_E : 
End Sub 
Rem *** PRCEND , 
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HK7>£1 : 0 5 1 - 1 



Option Explicit 
Rem flDEFPL'B 
I Rem PUB4N3 

Private W9X30MX31§_9X289_9X29§_©X026<6X26&, ©X279) As Integer 
[Rem PUBIN3 

Private « 9X30 59.9X3 15Q_9X 2 859_9X295§_§X200e (6X265©. 9X275©) As 9X2359 
|Reo PUB5C3 

Private CTRLjr9X30&_§X28&_©X296_STS_TRANSITiOILFLG As Integer 
(Rem PUB5Y3 

Private CTRLJ*9X3Q&_§X28e_9X29MTSjrRANSITiON_FLG_P As integer 
I Rem PUB5B3 

Private CTRL_V§X30§^§X28e„&X29§_STS„TRANSITION_FLGJP As Integer 
|Rem P0BGF3 

Private CTRL3eX3O§JX3l©^89528§_§JI!29OXO2MOT_VALIDJLGt0X26e. §%279) As Boolean 
iRem DEFEND 
Rem 4DEFPRV 
iRen PRV2T3 

Pr i va t c H9X309_9X3 l©_9X289_9X29©_9X029_wk©X079 (9X26©, 9X278) As Integer 
IRem PRV7R3 

Private CTRLjr©X309_8X29©JNGJ ? LG As Boolean 
lRem PUBKU 
Private CNSJIOTJUJIUnteger As Integer 
Private Gyou as Integer 
Private Relu as Integer 
Private UtLCnt as Integer 
Private Solo_Cnt as Integer 
Private UtiJIax as Integer 
Private SotoJIax as Integer 
lRem $PRV2ff3 
8X162© 
Rem SPRV2E3 
Rem SPRV4W3 
8X165© 
Rem 1PRV4E3 
IRem 3 DEFEND 

Public Sub MainO 
|Rem SVECREP Private Sub L3_©X31©__9X289_9X299_©X029 0 
Gyou - 0 
Retu = 0 
[Real PRVLG 

If 9X349 < 9X35© then 
Item PRVLG 

UtiJIax = 9X26© 

lRem PRVLG 

SotoJIax = 9X279 
End If 
IRem PRVLG 

1 f 9X349 > ©X35© then 
SRem PRVLG 

UtiJIax = ©X27© 

lRem PRVLG 

SotoJIax « 9X269 

End If 
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HKDgJ : 0 5 1 - 2 

IE& (K(0gft&7c) /ffi^/Sm/g?ffli^/».g)L 3 (ggffi^O 5 7 0- 2) 

UtLCnt » 0 
Soto.Cnt = 0 
Do Until Soio^Cnt = Solojtax + 1 
01 i_Cnl = 0 
Rem PRVLG 

If &S349 < &%m then 
Gyou = UtLCnt 
Rein * Soto.Cnl 
End If 
Rem PRVLG 

If 8*348 > 6X358 then 
Gyou - Soto_Cnl 
Retu = UtLCnt 
End If 

Do Until UtLCnt = Ulijlax 4 1 
BOX. I: 
Rem PRVLG 

If ¥§X3O§_8%3ie_§me_eX29M*O20 (Gyou, Retu) » CNSJlOTJttJHJnleger Then 

GoTo B0X_2 
End If 

GoTo BOX J 

B0X_2: 
Rem PRVLG 
9X166 

B0X_3: 
Rem PUBL3F 

If Wi3530S„©X31MX28§_©X29§_eXO2©_wkSXO7§ (Gyou. Retu) = 1 Then GoTo B0X_4 
! GoTo B0X_5 

B0X_4: 
Rem PUBL3F 

If W§X30§_©S531«„8X28©_©X29©.©J602©_wk8XO?9 (Gyou, Retu) = I 
Then W9S30©_©X3 ie_eX28©_§S29©_9X02e (Gyou, Re lu) = ©X079 
Rem PRVLG 

CTRLjr©X30©_9*289_©*298_STSj™SlTI0N_FLG = CTRL.ff§3;3Q§ - e!l528MX296_STS_TRANSlTI0N - FLG * 1 
GoTo BOXJi 

B0X_5: 
Rem PRVLG 

If CTRL_m30©„©X28©_«%29§_STS_TRANSITION^FLGJ > 
= CTRL3&X308_©X28e_eX298«STS - TRANSlTIONJ 7 LGJ , P Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X.6: 
Rem PRVLG 

CTRL_ff©%30OX318_eS528©_§X298^02©„N0TJALlI)JLG (Gyou. Retu) = True 
GoTo BOX^E 

B0X_7: 
Rem PRVLG 

CTRLjr©X30©_©X298JNG_FLG = True 
GoTo BOXJE 

B0X_E: 

UtLCnt * UtLCnt + I 

Rem PRVLG 
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tt&i-£'<# b)V<DM : 0 5 1 - 3 

mm (k<d^±7l) smii/&mtt/®mti/ifiKm<»\-3 (ggftgo s i o-3) 

IF 6%348 < §55356 then 

Gyou = Ut i_Cnl 

Re la = Soto_Cnl 
End 1 f 

Rem PRVLG 

if fc%34§ > §S35§ (hen 

Gyou c Soto_Cnt 

RHu = Uli.Cnt 
End It 

Loop 

Solo_Cnt = Soto.Cnl + 1 
Rem PRVLG 

If §*34§ < 9*359 then 
Gyou = UlLCnt 
[ Retu = Solo_Cnt 

End If 
Rem PRVLG 

If &34ft > 6*356 then 
Gyou = Solo_Cnt 
Relu * UtLCnt 
End If 
Loop 
Gyou * 0 
Retu ■ 0 
UtLCnt = 0 
Soto_Cnt s 0 
UUJIax = 0 
SotoJIax = 0 
End Sub 

Rem *** PRCEND . 
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h;K&3! : 0 5 2 - 1 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private B6X308_©X31OX28©_§X298_©X02© (§X2G©. 8X278) As 8X238 
Rem PU61N4 

Private WeX305©Jtf315©__©*285e_8X295MX200&(e*2656. ©X2758) As ©X235© 
Rem PUB5C4 

Private CTRL^m30MW8§„«298_STS.TRANSIT10N_FLC As Integer 
Rem PUB5Y4 

Private CTRLJ^308_§X28©_©X298_STSjrRANSmONJ r L(LP As Integer 
Rem PUB5B4 

Private CTRL3«530§_§X28OX29§_STS..TRANS]T]0N_FLa.PP As Integer 
Rem PUB6F4 

Private CTRL^W8X30§_§X31M9t288_§X29§_eX02§_NOT_VALID_FLGieX268. 6X276) As Boolean 
Rem SDEFEND 
Rem PUB4B4 

' Private «W3009_eX3l0O*280&_€*290&_§X200@(©X26e.§X278) As ©X238 
Rem PUB4N3 

Private *3_©X3ie_8X288._©X29§_&X02&{©X26e. 8X278) As Integer 
Rem PUB4N2 

' Private a2_8X31©_8X28e_©X298_eX02e{©%26©. 8X278) As 8X238 
Rem ifDEFPRV 
Rem PRV2T4 

Private m3O8_8X3I©_8X28e_8X290_8XO2©_wk (8X268, ©X278) As 6*238 
Rem PRV7R4 

Private CTRLJT9X 30OX29© J NG.FLG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUH„String As Siring 
Private CNSJ^TJOJILlnteger As Integer 
Private CNSJ*OTJCUH_Boolean As Boolean 
Private CNSJH)TJ(UHJ,ong As Long 
Private CNSJWTJKtHLS ingle As Single 
Private CNS_NOT_KUfl_DoubIe As Double 
Private CNSJiOTJOHLVa riant As Variant 
Private CNS_N0TJOIH_Currency As Currency 
Private CNS_NOTJOJlLBYte As Byte 
Private CNSJiOTJCUHJlate As Date 
Private Gyou as Integer 
Private Relu as Integer 
Private UU_Cnl as Integer 
Private Soto_Cnt as Integer 
Private UtiJIax as Integer 
Private SoloJIax as Integer 
Rem SPRV2V4 
©XI 728 
Rem SPRV2E4 
Rem SPKV4T4 
©X182© 
Rem $PRV4E4 
Rem 8 DEFEND 
Public Sub MainO 

Rem SYECREP Private Sub L4_©X319_eX288_eX298_©X02e_8X07©0 

Gyou - 0 
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tiB-^* h)l><DM : 0 5 2-2 
EK1 (KOff&Ti) /ffi^fiBWiV^fi5 ; fir/ / ^^g>L4 (gJJfl^O 5 8 0-2) 

Relu = 0 
iRea PRYLG 

If 6X346 < §3356 then 
|Rem PRVLG 

UUJIax * 6X266 

Urn PRVLG 

Solojlax = 6X276 
End If 
[Rem PRVLG 

If 6X348 > 6X356 then 
(Ren PRVLG 

UUJIax = 6X276 

iRem PRYLG 

SotoJIax = 8X266 
End If 
L'tLCnl = 0 
Solo_Cnl ■ 0 
Do Unlil Soto_Cnl - Sotojiax + 1 
UlLCnl = 0 
|Rera PRVLG 

If 8X346 < 6X353 then 
Gyou = UtLCnt 
Retu = Soto_Cnl 
End If 
iRen PRVLG 

If 6X346 > 6X356 then 
Gyou B Soto_Cnl 
Retu = Uti_Cnl 
End If 

Do Until DUJnt s UUJbx + 1 
BOX J : 
IRem PRVLG 

If WeX306_eX3l8_8X28e_6X298_eX026jJk (Gyou, Retu) = CNS_N0TJvUH_6X238 And _ 
|Rea PRVLG 

V3_eX3ie_6X28e.6X298_6X028 (Gyou, Retu) = 6X076 Then 
GoTo B0X_2 
End If 

GoTo B03LE 

B0!L2: 
iRem PUB1N 

If \reX3056_6X3I5e_8X2858_eX2956_6X2008<Gyou,Retu) = CNS_N0T„KUH_6X2356 Then Go To Box_3 
Item PRVLG 

*6X308_6X3ie_eX28e_©X29e_eX02e_wk (Gyou, Reiu) = «§X3056_6X315e_6X2856_6X2956_§X200© (Gyou, Relu) 
B0)L3: 
IRem PRYLG 

If W8X309_8X316_8X28d_eX29e_8X02ej»k (Gyou. Retu) O CNS_N0T^.KUH_6X236 Then 

GoTo B0X.4 
End If 

GoTo B03L5 

B0.X.4: 
iRem PRVLG 

*8X308_GX3ie_6X288_§X296_JX028 (Gyou. Retu) = WeX3Q8_6X3!8_eX28e_8X296_eXQ2e_wk (Gyou, Relu) 
[Res PRYLG - 



ffiflE# 2004-3099192 



mm 2003-330797 



^-vl 220/ 



2 2 2 ] 



ttm-S'*? h)VOm : 0 5 2 - 3 

iE fl (K<om±7t) /mij/&mi/&toG/iA9M&0>L< (gfl&30 5 8 0-3) 

CTRLJ§%30OX289_§X29e_STSjrRANSlT10N_FLG « CTRL.W6X30g^28e_M29§_STS_TRANSIT10NJLG t 1 
GoTo BOX J. 

B0X_5: 
|Reo PRYLG 

I r CTRL36X309_3X28e_eX29&_STSjrRANSIT10N_FLGJ> 
= CTRL Jl 6X3 0 6 JIX289 JiX2 96_STS_TRANS 1 T 1 0N_FLG_PP Then 

GoTo BOXJi 
End tf 

GoTo B0X_7 

B0X_6: 
IRcd PRVLG 

CTRLJ6Sl30M5t31ft_eX28MX290X020 , OT_YAL1D_FLG(Gyou.RelU) = True 
GoTo B0X_E 

B0X.7: 
IRem PRVLG 

CTRLjr9X30§_9X299JNG._FlG = True 
GoTo BOX JE 

B0X_E: 

UlLCnl = UlLCnl + I 

I Rem PRVLG 

H 6X349 < 9X359 then 
Gyou = UlI_Cnt 
Re lu = Soto_Cnt 
End If 

!Reo PRVLG 

If 9X349 > 9X359 then 
Gyou c Soto_Cnt 
Retu * l)U„Cnl 
End If 

Loop 

Solo_Cnt = Soto_Cnl t I 
IRem PRVLG 

If 9X349 < 9X359 then 
Gyou ■ UtLCnl 
Re la = Soto_Cnt 
End If 
IRera PRVLG 

If 9X346 > 9X359 then 
Gyou «= Soto.Cnt 
Retu «= Oti.Cnt 
End If 
Loop 

Gyou = 0 
Retu «= 0 
UlljCnt " 0 
Soto_Cnt = 0 
Ulijlax = 0 
SotoJIax = 0 
(End Sub 

Rem *** PRCEND 
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ttm-z^z h)MOm : 0 5 3- 1 

iEJH (K<Ptff<&7C) /^-h/m^m/m^/m.^^ 3 CgJgjfr^O 5 9 0- 1) 

[option Explicit 
Ren 3DEFPUB 
IRem PUB4N3 

Private W8X3O©JiX31M228e_.§X29&_eX028 As Integer 
|Rem PUB1N3 

Private ff©X3058._ex315§_6X285e_8X295fl_GX200e As 8X2358 
iReo PUB5C3 

Private CTRLjeX3Q0_eX288_©X298_STS_TRANSITIOIU ? LG As integer 
(Rem PUB5Y3 

Private CTRL_ra30e_§%288^X29e.STS_TRANSIT10NJ ? LCJ > As Integer 
|Rem PUB5B3 

Private CTRL3eX30e_eX28§_ex29©_STSjrRANSITI0N_PLGJ ) P As Integer 
IRem PUB6F3 

Private CTRL_9eX30§_6%31§_W28MX29&_W02O0T_VALULFLG As Boolean 
(Rem SDEFEND 
Ren SDEFPRV 
IReo PRV2T3 

Private *8X308_§X318_eX28e_©X29e_eX028_v?k As Integer 
IRem PRV7R3 

Private CTRLJ r 8%308_©X298_ING_FLG As Boolean 
iRem PUBKU 

Private CNSJlOTJOJIUnteger As Integer 
[Ren $PRV2f 3 
021620 
Rem $PRV2E3 
Rem $PRV4ff3 
8X165© 
Ren SPRV4E3 
|Rem 8DEFEND 

Public Sub MalnO 
|Rem 3VECREP Private Sub L3_©X31©_8X288_©X29e_eX02©0 

B0X_1: 
IRem PRVLG 

If W©X3O8_©X3ie_8X28©_©X29§_0XO2© = CNSJOTJOJHJnteger Then 

GoTo B0X.2 
End If 

GoTo BOX.E 

B0X_2: 
IRem PRVLG 
8*169 
B0X_3: 
IRem PRVLG 

if W©X308_©X318_©X28©_eX29§_eX028_ffk O CNSJlOTJOJIUnteger Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
IRem PRVLG 

■ «8X30e__©X31©_©X28©_eX29e_8XD2e = « 8X30 8^6X31 ©.©352 8©_©X298„8X02©_wk 
IRem PRVLG 

CTRLJff8X3Oe_8X280_8X298jTSJIRANSITION_FLG = CTRLJ^308_8X28e_©X298jiTSjrRANSIT]0N_FLG + 1 
GoTo BOXJ 

B0X_5: _ 
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iBg (Kom^Ti) /\hij/mmm/&mm/m&ii<DL 3 ivm»^o 590-2) 

Rem PRVLG 

I f CTRL J'§X30§ JX28©.eX29§_STS_TRANSITION JIG J 
= CTRL_W@5S30O%28O«296_STS_TRANSITI0N_FLG_PP Then 

G0T0 BOXJ 
End If 

G0T0 B0X.7 

B0X.6 : 
Rem PRVLG 

CTRLJ«X30MX31©_©%28«JX29MX0200TJ'AL1D«FLG = True 
G0T0 BOXJ 

B0X_7 : 
Rem PRVLG 

CTRLJ@S30@_@%298JNG_FLG = True 

G0T0 BOX J 

B0X_E: 
End Sub 

Rem *** PRCEND 
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HKDgi : 0 5 4-1 
jE& (KOitg) /fflA/B^JIB/ffflBas/^SMrtOL 4 (fl»f 0 6 0 0- 1) 
[Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private WX309_9X319_9X289_9X299_9X029 As 9X239 
Rem PUBIN4 

Private TOX305§.§%3 1 5§j8X285§_dX295e_eX200e As 9X2359 
Rem PUB5C4 

Private CTRLJW30«JX28«JX29§JTSJRANSITI0NJ ? LG As Integer 
Rem PUB5Y4 

Private CTRLJT9X309_9X289_9X299_STSJXANSITI0NJ J LG_P As Integer 
Rem PUB5B4 

Private CTRL_W@«30e - «3&28§_§X29@„STS„TRANSITI0N.FLG_PP As Integer 
Rem PUB6F4 

Private CTRLJ*§X30«_iX31§_iX288^9%299^«X02O0TJ , ALIDJLG As Boolean 
Rem SDEFEND 
Rem PUB4B4 

' Private W9X3Q09_@X3109_@X2809_9X2909_9X2009 As 9X239 
Rem PUB4N3 

Private W3_9X319_9X289_9X299_9X029 As Integer 
Rem PUB4N2 

' Private W2_9X319_9X289_9X299_9X029 As 9X239 
Rem fDEFPXV 
Rem PRY2T4 

Private W9X309_9X319_9X289_9X299_@X02@_wk As 9X236 
Rem PRV7R4 

Private CTRLJ9X309_9X299JNG_FLG As Boolean 
Rem *PUBKU 

Private CNSJWT_KUH_String As String 

Private CNSJWTJvUHLJnteger As Integer 

Private CNSJWTJOJHJBoolean As Boolean 

Private CNS_NOT_KUH_Long As Long 

Private CNSJIOTJCUILS ingle As Single 

Private CNSJWTJTOOouble As Double 

Private CNS_NOTJCUH_Yariant As Variant 

Private CNSJIOTJOJILCurrency As Currency 

Private CNS_NOT_KUH_Byte As Byte 

Private CNS.N0T_K01LDate As Date 
Rem SPRV2V4 
9X1729 
Rem SPRV2E4 
Rem SPRY4M 
9X1829 
Rem SPRV4E4 
Rem #DEFEND 

Public Sub MainO 

Rem 3VECREP Private Sub L4_9X319_9X289_9X299_9X029 0 

B03L1: 
Rem PRVLG 

If W9X3G9_9X319_9X289_9X299_9X029 = CNSJWTJOJH_9X239 And _ 
Rem PRVLG 

W3_9X319_9X289_8*299_9X029 = 9X079 Then 
GoTo B0X_2 

End If 
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iES i (KCPffi^Tt) Xa^XIB^X^fflM^^WOL4 CgJljS^O 6 0 0- 2) 

GoTo B0X_E 

B0X_2 : 
IRem PUB IN 

Jf ff@X305O*315O5K285O%295O*200e = CNS_N0TJttJH_@%235@ Then Go To Box_3 
IRem PRYLG 

W30O^31O%28O^29@_@^02@_wk = W@%305@_@%3 15@_@^285@_@%295@_@X200@ 
BOX J : 
IRem PRYLG 

If ff@X30O*31O*28O*29@_@%02@_wk O CNSJOT_KUH_@5523@ Then 

GoTo B0X_4 
End If 

GoTo B0X.5 

B0X_4 : 
IRem PRVLG 

W@X30OMlO*28O*29@_@*02@ = W@*3OO*31OS28O*29<L0*O2@_wk 
IRem PUB4B4L 

m300@_@SK3I0@_@^280O*290O«200@ = W@fc3 0@_@*31O* 2 8O*29@_@*02@ 
IRem PRVLG 

CTRLjm30O«28@^29@_STS_TRANSlT10N_FLG = CTRLJ'@3K30@_@%28@^29@_STS_TRANSITIONJLG f 1 
GoTo BOX J 

BOX J : 
IRem PRVLG 

I f CTRL_W^30O^28O«29@_STS_TRANSIT10N_FLG_P 
= CTRL_W@%30@_@5528O*29@„STS_TRANSITI0N_FLG^PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
IRem PRVLG 

CTRL_W^30^@»31O*28@_®5fe29@„@»02@_N0T - VALID_FLG = True 
GoTo BOX_E 

BOX J : 
IRem PRVLG 

CTRL3'@*30@_@S29@_ING_FLG = True 
GoTo BOX_E 

BOX J: 
[End Sub 

Rem *** PRCEND 
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ttSS-^^ : 0 5 5 - 1 

(Option Explicit 
Rem SDEFPUB 
iRem PUB4N3 

Private *§%308_QX3l§^28e_©X290_6X028 As Integer 
IRem PUBIN3 

Private m3058_§X315e_6X285«LG*295§._§X200§ As 6X2359 
iReci PUBSC3 

Private CTRU*8*30&_.§X28§_QX29e_STS_TRANSmON_FLG As Integer 
|Rem PUB5Y3 

Private CTRL_VlW30e_iX28MX29§_STS_TRANSITI0N_FLG_P As Integer 
IRem PUB5B3 

Private CTRLjr§X306_6X289_QX29MTS_TRANSlTION_FLG_PP As Integer 
lRcm PUBGF3 

Private CTRL_W«30e_§X3l8_eSK28§_§X298^6X02§_NOT^VAL[D_FLC As Boolean 
|Rem SDEFEND 
Rem 3DEFPRY 
IRem PRV2T3 

Private tt8X306_6X3t6_eX28e_eX29@_ex02§j»k§X079 As Integer 
IRem PRV7R3 

Private CTRLJfcX306_6X29§JNG_FLG As Boolean 
IRem PUBKU 

Private CfiSJtOTJOJH. Integer As Integer 
(Rem $PRV2ff3 
8X1628 
Rem SPRY2E3 
Rem SPRV4W3 
9X1659 
Rem $PRV4E3 
IRem SDEFEND 

Public Sub MainO 
|Rem SVECREP Private Sub L3_8X318_8X288_8X2 98.6X026 0 

BOX.l : 
IRem PRVLG 

If K8X306_8X3ie_§X28MX29(L8%028 - CNS - NOT_KUH_Inleger Then 

GoTo B0X.2 
End If 

GoTo BOX.E 

B0X.2: 
IRem PRVLG 

6X166 
IRem PRVLG 

K6X308_8X31©_eX28§.eX298_«X02e_wkex07© « 1X076 
B0X_3: 
iRera PRVLG 

If ffeX308_eX3l8^§X289^6X299_9X029_wk©X079 O CNSJ«0T.KUlL9X23e Then 

GoTo B0X_4 
End If 

GoTo B0X.5 

B0X..4: 
|Rem PRVLG 

ff9X30e_6X3ie_6X289_§X296„6X02e * K6X30 8.9X3 l§_9X28e_8X29e..6X02§_wk8X076 
IRem PRVLG 

CTRLJ9X30OX28fl_eX29§_STS_TRANSlT10N_FLG * CTRL_ff6X309_9X28OX296.STS_TRANSITI0NJ ; LG + i 
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mm (K<pm±7t) /^/fmm/mmm/natm^ 3 (fi#fo6io-2) 

G0T0 B0X_E 

BOX J : 
Rem PRVLG 

I f CTRLjm30OSK28OX29@^STS_TRANSITI0N_FLG_P 
= CTRLJ'@X30O5528O%29@_STS_TRANSITI0N.FLGJP Then 

G0T0 B0X.6 
End If 

G0T0 B0X_7 

BOX J : 
Rem PRVLG 

CTRL_W@^30@^3lO*28O^29O»02O0T_VALIDJLG = True 
G0T0 BOX_E 

B0X_7 : 
Rem PRVLG 

CTRL_W@*30@._@S29@_INGJ ? LG = True 
G0T0 BOX.E 

BOX J: 
End Sub 

Rem *** PRCEND 
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jE& (Kg)ffi&7C) /fl:fr/ffi^&/^@#/%^<PL 4 CgfiHWO 6 2 0- 1) 
Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private m30M*31M*28M*296_6%02Q As 6X236 
Rem PUB1N4 

Private W§%305(L6X3l5§_§X285§_e%295§_6X2006 As 6X235© 
Rem PUB5C4 

Private CTRLJ&6*30§_6X286JX298_STSJMNS1TION_FLG As Integer 
Rem PUB5Y4 

Private CTRLjeX308_§5;28§_§Si298_STS_TRANSITION_FLG - P As Integer 
Rem PUB5B4 

Private CTRL_m30e„§a528§_§3;29^STS_TRANSIT]ONJFLG_PP As loleger 
Rem PUB6F4 

Private CTRL_Vf©X30«_€X3 l© - eX28©_ex29Q_eX02§_NOT_VALl D_FLG As Boolean 
Rem S DC FEND 
Rem PUB4B4 

' Private «6X300e_§X310§_eS28Q§_6X2908_6X2006 As 6*236 
Rem PUB4N3 

Private «3_eX3ie_6%286_6X29e_6X026 As Integer 
Rem PUB4N2 

' Private *2_6X31§_e%288_8%29O*028 As 6X236 
Rem 3DEFPRV 
Rem PRV2T4 

Private «©X306_§SS3l6._&S28e_eX298_e*026_ffk As §56236 
Rem PRV7R4 

Private CTRL_m308_6X298JNG_FLG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUH_Slrlng As Siring 

Private CNSJiOTJOJHJnteger As Integer 

Private CNSJiOTLKUHJtoo I ean As Boolean 

Private CNSJ»OTJUJH_Long As Long 

Private CNSJtoTJCWLS ingle As Single 

Private CNSJJOTJOJlLDouble As Double 

Private CNS_N0TJOJH_Variant As Variant 

Private CNSJTOTJOJrLCurrency As Currency 

Private CNSJlOTJOJOvle As Byle 

Private CNSJWTJOJHJlate As Date 
Rem $PRY2T4 
0X1729 
Rem $PRV2E4 
Rem $PRV4W 

mm 

Rem SPRV4E4 
Rem SDEFEND 
Public Sub UainO 

Rem 3VECREP Private Sub L4_6*3 1 §_6X2 88.6X2 98_6*0 2035076 0 
BOXJ: 
Rem PRVLG 

If ff6*306_65B316_e%288_65l529e_e%02e = CNS_N0T_KUH_8X236 And _ 
Rem PRVLG 

»3_§X3ie.8X28OX29§_§X02§ « §56076 Then 
GoTo B0X_2 

End If 
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ttm-±H? hJWDM : 0 5 6-2 
GoTo B0X_E 

BOX J : 
iRem PUBIN 

If W@%305O*3 1 50*2850*2950*2008 = CNS_NOT_KUO*235@ Then Go To Box_3 
IRem PRYLG 

W@S30O*3 lO*28O*29O*02Ok = ff@*305O*3 150X2850*2950*2006 
B0X_3 : 
IRem PRVLG 

if W@%30O*31O*28O*29O*02Ok O CNS_NOTJO]H_@*23@ Then 

GoTo B0X_4 
End If 

GoTo B0X.5 

BOX J : 
IRem PRYLG 

W@K30O*3 10*280*290*02© = W@*30O*31O*28O*29O*02Ok 
IRem PUB4B4L 

MX300OX3 100*2800*2900*2009 = W@X30O*3 10*280*290*02® 
IRem PRVLG 

CTRL_We*30O*28O*29@_STS - TRANSITI0NJ ? LG = CTRLJtt 300*280*2 9®_STS.TRANS I TION_FLG + 1 
GoTo BOXJ 

BOX J : 
IRem PRYLG 

I f CTRL_W@X30O*28O*29OTS_TRANSIT10N_FLGJ 
= CTRLJ@X30O*28O*29@_STS - TRANSlTI0NJLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6 : 
IRem PRVLG 

CTRLJ"@SB30O*31O*28O*29O*02O0TJ r ALIDJLG = True 
GoTo BOX_E 

B0X_7 : 
IRem PRVLG 

CTRL_W@*30O*29@_ING_FLG = True 
GoTo BOXJ 

BOXJ : 
[End Sub 

Rem *** PRCEND 
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tt**-^? MUDS! : 0 5 7 - 1 
jEffl (KPifiiSiTt) /M^/Beym/^^/^^g)L 3 (ggg^^rO 6 3 0- 1) 
(Option Explicit ~ 
Rem SDEFPUB 
Rem PUB4N3 

Private UaX30M*31§_§X288_©X296_8XG2§ (6X266, 6*276) As Inleger 
Rem PUB1N3 

Private ffeX305Q_8X315©_6X285©_6X2956_eX200§ (6X2651. 6X2756) As 8X235© 
Rem PUB5C3 

Private CTRLjr§X30MX28e_6X29S_STS_TRANSlTION_FLG As Integer 
Rem PUB5Y3 

Private CTRL_W§X309^iX289_eX296_STSJRANSIT10N_FLG_P As Integer 
Rem PUB5B3 

Private CTRL_W&X30e_t«28&_9X298_STS_TRANSIT!ON_FLG_PP As Integer 
Ren PUB6F3 

Private CTRLjeX30e_ex3lMX28§_§X29MX02M07_VALlDJ : LG(§X2e§. ©X276) As Boolean 

Ren 4DEFEHP 
Rem 3DEFPRV 
Rem PRV2T3 

P r i va t e W8X30Q_8X3 1 ©_&X28§_8X298_6X02©_vk (6X266. 6X276) As 1 n t ege r 
Rem PRY7R3 

Private CTRL36X308_6X29©JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJIOTJLUHJnteger As Inleger 

Private Gyou as Integer 

Private ReU as Integer 
I Private t)li_Cnl as Integer 

Private Solo.Cnl as Integer 
I Private UtiJIax as Integer 

Private Soto_Max as Integer 

Rem SPRV2V3 
19X1620 

Rem SPRV2E3 

Rem SPRV4K3 

6X165© 

Rem SPRV4E3 

Rem 3 DEFEND 

Public Sub MainO 

Rem 8VECREP Private Sub L3_0X3ie_©X28&_8X296_©XO2© 0 
I Gyou * 0 

! Retu = 0 

Rem PRYLG 

If 6X346 < 6X356 then 

Rem PRVLG 

UtiJIax = 6X268 

Rem PRVLG 

J SoloJJax » 6X276 

End If 
Rem PRYLG 

If 8X34© > 6X358 then 
Rem PRYLG 

UtiJIax = 8X27© 

Rem PRYLG 

SotoJIax * 6X266 

End If 
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UtLCnt = 0 
Soto.Cnt = 0 
Do Until Solo_Cnl =. SoloJIax * 1 
UlLCnl = 0 
!Rc3J prvlg 

U 6X340 < 6*356 (ben 
Gyou = LMLCnt 
Relu = Solo.Cnl 
End If 
lEem PRVLG 

If 61343 > §2353 then 
Gyou s Solo_Cnl 
Retu = UtLCnt 
End If 

Do Unlil UtLCnt « UliJIax + 1 
BOX J : 
|Reo PRVLG 

If W8X306.e%316_eX288_©:s298_8*()2e(Gyou,Relu) = CNSJ*0TJCUH_lnteger Then 

GoTo B0X.2 
End If 

GoTo B0X.E 

B0X_2: 
iRem PRVLG 
8X168 
B0X_3: 
IRem PUBL3F 

If »©X30MS3ie_©S28©_«X29§_W02§^wk (Gyou, Retu) = 1 Then GoTo B0X_4 
GoTo B0X_5 

B0X_4: 
IRem PUBL3F 

IT «©X30©_§X3ie_eX28§_©X29M%029_wk<Gyou. Relu) = I 
Then Be3f308_8X3ie_©X288_ex29e_e*02e (Gyou. Retu) = 8X078 
SRem PRVLG 

CTRLJJ8X30e_eX288_8X298_STSJTRANSITION_FLG = CTRL Jfr8X 308.8X2 8 8.8X2 98_STS_TRANS I TtON.FLG + 1 
GoTo B0X_E 

BOX J: 
IRem PRVLG 

I f CTRLJ'§X3Q©_eX288_8X298_STSjrRANSITI0NJ ; LGJ > 
= CTRLJ§X30©.§X288_©a529§_STS_TRANSITIONJ ? LG_PP Then 

GoTo B0X_6 
End If 

GoTo B0.V7 

BOXJ: 
IRem PRVLG 

CTRL_W§1530e_©X31©_8X28©_©X29§_ea;028_NOT_VALID„FLG(Gyou,Relu) = True 
GoTo B0X_E 

B0X_7: 
IRem PRVLG 

CTRLje*30e_8X299jNG_PLG * True 
GoTo B0X_E 

B0X_£: 

UtLCnt = UtLCnt * I 

IRem PRMG 
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ft-fit-^* hJKOS : 0 5 8 -1 

lOplion Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private W6X3Q6_6X3 l§_@X286_6X298_§X026 (6X266. 6X276) As 6X236 
Rem PUBIN4 

Private lflX3O5«.§X3IS«.iX285§_«X29SC.iX2OOd(9%2650 l @^275@) As 6X2356 
Rem PUB5C4 

Private CTRLJ§X30§jiX28§_§X29§_STSJRANSITI0NJPLG As Integer 
Rem PUB5Y4 

Private CTRLJ"§«30O%28OX29§ - STS - TRANSlTl0NJLG_P As Integer 
Rem PUB5B4 

Private CTRL_V«X30§_§X28i_§X29§JTS_TEANSITIONJLGJP As Integer 
Rem PUB6F4 

Private CTRLJ'eX30MX3lOX28§_«X29OX02§J0T_VALID_FLG (6X266. 6X276) As Boolean 

Rem SDEFEND 
Rem PUB4B4 

' Private ff6X3006_6X3lOe^@X28Q6_6X2906_6X200@ (6X266. 6X276) As 6X236 
Rem PUB4N3 

Private W3_@X3l@_6X286_6X296_6X026 (6X266. 6X276) As Integer 
Rem PUB4N2 

' Private W2_6X3l6_6X286_6X296_6X02@ (6X266, 6X276) As 6X236 
Rem #DEFPRV 
Rem PRV2T4 

Private W6X306_@X3]6_6X286_6X296_6X02@_wk (6X266. 6X276) As 6X236 
Rem PRV7R4 

Private CTRL_W6X306_6X296_INGJ ? LG As Boolean 
Rem *PUBKU 
Private CNS_NOT_KUILS t r i ng As String 
Private CNS_NOT_KUHJnteger As Integer 
Private CNS_NOT_KUH_Boolean As Boolean 
Private CNS_NOT_KUlLLong As Long 
Private CNS_NOT_KUH_S ingle As Single 
Private CNSJIOTJOJOouble As Double 
Private CNS_NOT_KUILVa riant As Variant 
Private CNSJWTJCWLCurrency As Currency 
Private CNSJGT_KUH_Byte As Byte 
Private CNSJOTJCOHJ)ate As Date 
Private Gyou as Integer 
Private Relu as Integer 
Private Uli_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Utijlax as Integer 
Private SotoJIax as Integer 
Rem SPRV2W4 
6X 1 726 
Rem SPRV2E4 
Rem SPRV4W4 
1 6X1 8 26 

Rem SPRV4E4 
Rem #DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L4_6X316__6X286_eX296_6X026 0 

Gyou = 0 ____ 
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!Rclu = 0 
i PRVLG 
If 6*348 < 8X358 Ihcn 
a PRVLG 
Ulijlax = 8X26& 
d PRVLC 
SoloJIax = 8X278 
End If 
q PRVLG 
IT 0X348 > 8X358 then 
to PRVLG 
UliJJax « 8X278 
a PRVLG 
SotoJIax = 6X266 
End If 
UlLCnt * 0 
Soto_Cnt - 0 
Do Until Soto.Cnt * SotoJIax + 1 
UlLCnt = 0 
•n PRVLG 
If 8X348 < 8X358 then 
Gyou = Uti_Cnl 
Retu » Soto_Cnl 
End If 
em PRVLG 
U 8X348 > 3X359 then 
Gyoa = Soto_Cnt 
Retu = UlLCnt 
End if 
Do Until UlLCnt = UtiJIax + I 
BOXJ: 
em PRVLG 
If m308_8X3J8._eX288__8X29©JXG28 (Gyou. Retu) = CNSJJ0TjaJH_8X239 And _ 
en PRVLG 
ff3_§X318_8X288_8X298_8X028(Gyou. Retu) =9X078 Then 
GoTo B0X_2 
End If 
GoTo B0X_E 
BOXJ: 
tern PUB1N 
If ^3056_eX3158_8X285&_8X295e_©X20u8 (Gyou. Retu) = CNS_N0TJCUH_8X2358 Then Go To Box_3 
tern PRVLG 
m308_8X318_eX28e_eX29M*02©_wk(Gyou. Retu) = ff8X305e„8X3l5§_8»285§_«X2958_eX200§ tGyou. Retu) 
B0X_3: 
Jem PRVLG 
If W8X306_ex318_©X288_8X29e_8X02e..wk (Gyou. Retu) O CNSJ«rLKUH_eX238 Then 
GoTo BOXjl 
End U 
GoTo BOXJ 
B0X.4: 
Rem PRVLG 
WeX30©_eX318_8X288_8X29e_8XQ28 (Gyou, Retu) = m30e_eX318_§X28e_eX29GL8X02ej»k (Gyou. Retu) 
Rem PUB4B4L 
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b)l<om : 0 5 8 - 3 
iE*S (K0>ffi&7n) /1&-h/&Wti/?$m*&s'i>im*<»l. 4 (gijR^0 6 4 0-3) 



m300M*310ej»X280&_6X2906Jfc200&{Gyou t Retu) * W6X306._eX3ie_eX28&_eX29M*02&(Gyou. Retu) 
(Kern PRVLG 

CTRL3§X306_eX28a_6X29§_STSJMNSIT10NJ ? LG = CTRL36X30§_6X286_6X298_STSjrRANSm0N_FLG * I 
GoTo B0X_E 
B0X_5: 
IRen PRVLG 

I f CTRi3eX306_§X28MX29e_STS_.TRANSlTIONJ ? LG_P 
» CTRLJTeX30§_6X2S6_6X29&3TSJRANSmONJ ? LG_PP Then 

GoTo B0X_6 
End if 

GoTo B0X.7 

BOX J: 
iRem PRVLG 

CTRLjeX30M*3IM*28§_iX29MX02§_N0T_VALIDJ ? LG{Gyou,Retn) = True 
GoTo BOX.E 

B0X_7: 
iRen PRVLG 

CTRLJfc6X30MX296JNG_FLG * True 
GoTo BOXJB 

BOXJS: 

UtLCnt = UtLCnt + 1 

I Ren PRVLG 

1 f 6X346 < QX358 then 
Gyou = UtLCnt 
Retu = Solo_Cnt 
End If 

IRen PRVLG 

if 6X346 > 9X356 then 
Gyou - Soto.Cnt 
Retu = UtLCnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt + 1 
I Sen PRVLG 

It 6X346 < 6X356 then 
Gyou = UtLCnt 
Retu e Soto_Cnl 
End If 
IRen PRVLG 

If 6X346 > 6X356 then 
Gyou = Soto_Cnl 
Retu = UtLCnt 
End If 
Loop 

Gyou = 0 
Retu = 0 
Uli_Cnt = 0 
Soto.Cnt = 0 
DliJIax « 0 
SotoJIax - 0 
|End Sub 
Rem *** PRCEND 
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[1212 3 7 ] 

hJVOm : 0 5 9 - 1 

ie& (K<om^7t) /m-h/mmr\/^m^/^^oy\.z (w^0 6sq>-i) 

Option Explicit 
Rem JDEFPUB 
Rem PUB4N3 

Private WeX30e_8X3l8„eX288_8X29e_e%029t§X26e. 8X27§) As Integer 
Rem PUB IN 3 

Private KaX305e_QX3!5e_8X285§_§X2956_eX2006 (8X2658. 8X2758) As 9X235© 
Rem PUB5C3 

Private CTRLjreX3Q8_§X28©_©X298_STSjrRANSITI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRLJ6X30OX28e_8X298_STSJTiANSm0NJ r LGJ > As Integer 
Rem PUB5B3 

Private cm36X30&JX28e_§X29e_STS_TRANSITlONJ^GJ»P As Integer 
Rem PUB6F3 

Private CTRL_ff€X30§_eX31MX28MX29e_§X02§_NOT^VALIDJ ? LG(§X26e, 6X278) As Boolean 
Rem 3 DEFEND 
Rem SDEFPRV 
Rem PRV2T3 

Private TO30M3531©_§X28&_§X29OX02§_wk9X07§ (6X268. 8X278) As Integer 
Rem PRV7R3 

Private CTRLJ8X308_8X298_INGJ f LG As Boolean 
Rem PUBKU 

Private CNSJ*OT_KUlI_Integer As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private UlI_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Utijiax as Integer 

Private SotoJIax as Integer 
Rem *PRV2*3 
8X1628 
Rem $PRV2E3 
Rem SPRY4W3 
8X1658 
Rem SPRY4E3 
Rem 3DEFEND 

Public Sub UainO 

Rem SVECREP Private Sub L3_8X318_8X28e_eX298_8X02§ 0 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 8X348 < 8X358 then 
Rem PRVLG 

Utijiax = 8X268 

Rem PRVLG 

SotoJIax = 8X278 

End U 
Rem PRVLG 

If 8X348 > 8X358 then 
Rem PRVLG 

Utijiax = 8X278 

Rem PRVLG 

SotoJIax » 8X268 

End If 



ffi§E#2 004-3099192 



#11 2003-330797 



: 236/ 



[El 2 3 8] 

MMBffl : 0 5 9 - 2 

JE& (K<Pift£5e) S)&l3/V&m/&mti/niftGto'L 3 <gjggjj|0 6 5 0-2) 

UlLCnt =0 
Solo_Cnt 8 0 
Do Until Solo^Cnt = Solojlax t l 
UtLCnl = 0 
Ren PRVLG 

U 8X346 < §X35§ then 
| Gyou = UtLCnt 

Retu = Solo.Cnt 
End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Gyou - Soto_Cnt 
Retu = UlLCnt 
End If 

Do Until UlLCnt = Ulijlax + I 
BOXJ : 
Rem PRVLG 

H ffeX308_eX3ie_8X288_eX298_eX028 (Gyou, Retu) = CNSJJOTjOJHJnteger Then 

GoTo B0X.2 
End If 

GoTo B0X_E 

B0X_2: 
Rem PRVLG 
8X168 

B0X_3: 
Rem PUBL3F 

If ra308_8X3ie_QX288_eX298_8X028j9keX()7§ (Gyou. Retu) =■ I Then GoTo B0X_4 
GoTo B0X_5 

B0X_4: 
Rem PUBL3F 

If ffe%308_eX3ie_eX28e_eX298_eX02e_wk8X07& (Gyou, Retu) = l 
Then W8X308_8%3ia__§X288_eX298.JX02e (Gyou, Retu) = 8X078 
Rem PRVLG 

CTRLjr8X308_8X286_§X29e_STSjrRANSlTI0N_FLG = CTRLJttX308_8X28e_8%298_STS.JRANSITION_FLG \ \ 
GoTo BOJLE 

B03L5: 
Rem PRVLG 

I f CTia_*8X308_§X28e.JX298_STS_TRANS IT I ON J>LG _P 
« CTRLJ8X308_9X286 - 83S298_STS^TRANSITION_FLG_PP Then 

GoTo IoX_6 
End If 

GoTo B0X_7 

BOO: 
Rem PRVLG 

CTRL_W«X308_8X3 1 8.8X288_8»29e_8X028 JJ0T„VAL I D_FLG (Gyou. Re tu) = True 
GoTo B0X.E 

B0X_7: 
Rem PRVLG 

CTRL_K8X308__8X298_INGJ J LG = True 
GoTo B0X_E 

B0X_E: 

UlLCnt = UlLCnt t l 

Rem PRVLG _ 
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HKOSJ : 0 5 9-3 
(K<P8P<&7C) /tb^/fiB^^/^g/^^^L 3 (gigjft^O 6 5 0-3) 



Ren PRVLG 

H 6X346 > 6X356 then 
Gyou ■ Soto_Cnt 
Relu = UtLCnt 

End U 

Loop 

Soto_Cnt * Soto^Cnl + 1 
Ren PRVLG 

If 6X346 < 6X356 then 
Gyou = Ut LCnt 
Retu = Solo_Cnl 
End If 
Rem PRVLG 

If 6X346 > 6X356 then 
Gyou - Solo_Cnl 
Retu = UU_Cnt 
End If 
Loop 
Gyou = 0 
Relu = 0 
UtilCnl = 0 
Solo^Cnt = 0 
UlLMax = 0 
Solojdax = 0 
End Sub 

Rem *** PRCEND 




If 6X346 < 6X358 then 



Gyou = U I LCnt 



Re to * Soto_Cnt 
End If 
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tfia-:^* MM>ffl ' 0 6 0-1 

gg (K<pgr<&7c) /wh/mnti/nmm/ffl&wi* 4 ( gausiao 6 6 o - i ) 

lOpllon Explicit 
Rem SDEFPUB 
Rem P0B4N4 

Private ff8X30e_&X3i8j!X288_eX298_eX02e(eX2Ge. 8X278) As 6X238 
Ren PUBIN4 

Private tt§X305§_8X315e_6X2856_.eX295e_8X200a (8X2658, 6X2758) As 8X2358 
Rem PUB5C4 

Private CTRL3eX308_eX286_8X298_STSjrRANSITIONJ ? LG As Integer 
Rem PUB5Y4 

Private CTRLjeX308«8X28§JX298„STS_TRANSlTI0N_FLGJ > As Integer 
Rem PUB5B4 

Privale CTRL_tt82308_§X288„e%298„STS_TRANSlTION_FLG_PP As Integer 

Ren PUB6F4 mm % k n , 

Private CTRLJ«308«W31iJI»28i_W298_«029JWT_VAL!D_FLG(W268.8%27§) As Boolean 

Rem 5DEFEND 
1 Rem PUB4B4 

' Private WeX3QQ8_8X3106_eX280e_eX290e_eX200e (6X268. 8X278) As 8X238 
Rem PUB4N3 

Privale ft3_eX3ie_ex286_8X29e_6X02e (8X268. 6X278) As Integer 
Rem PUB4N2 

' Private ff2_8X318.8X288_8X298_8X028 (8X268. 8X278) As 8X238 
Rem SDEFPRY 
Rem PRV2T4 

Private fteX308_eX3l8_eX28e_8X298_eX028.jJk (8X268, 8X278) As 8X238 
Rem PRV7R4 

Privale CTRL_WX308_8X29§_1NG_FLG As Boolean 
Rem *PUBKU 

Private CNS_NOT_KUH_String As String 
Private CNSJWTjaiHJoleger As Integer 
Private CNSJWTJMLBoolean As Boolean 
Private CNSJTOTJvinLLong As Long 
Private CNSJiOTJOHLSingle As Single 
Private CNSJTOTJOlHJIouble As Double 
Privale CNS_NOTJO)H_Variant As Variant 
Private CNSJlOTJCUlLCurrency As Currency 
Private CNSJJOTJtfflLByte As Byte 
Private CNS_NOTJOJHJ)ate As Date 
Private Gyou as Integer 
Private Retu as Integer 
Private Uli_Cnt as Integer 
Private Soto_Cnt as Integer 
I Private UUJlax as Integer 
Private SoloJJax as Integer 
Rem $PRY2«4 
8X1721 
Rem $PRV2E4 
Rem $PRY4W4 
8X1828 
Rem *PRV4E4 
Rem 3DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub L4„eX3ie__eX288_eX298_eX02&_eX0780 

Gyou - 0 . - 
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tttit-te'V? h)V<DM : 0 6 0-2 

je^ (Kfogr^Tc) /mi*/mw/zffiG/&w&<i>\. i e &mft^o s 6 o - 2 > 

Reiu = 0 
|Rem PRVLG 

If 6X346 < 8X358 then 

Um PRVLG 

UtiJIax = 8X268 

|Ren PRVLG 

SotoJIax = 6X278 
End If 
[Rem PRVLG 

If 8X348 > 6X358 then 
iRem PRVLG 

UtiJIax = 8X276 

|Rem PRVLG 

SotoJJax = 8X266 
End If 
Uti.Cnt = 0 
Soto.Cnt = 0 
Do UnlU Soto.Cnl = SotoJIax + 1 
Uli_Cnt » 0 
IRem PRVLG 

If 8X348 < 6X358 then 
Gyou s Uti.Cnt 
Retu - Soto.Cnt 
End If 
|Rem PRVLG 

If 8X348 > §%350 then 
Gyou = Soto.Cnt 
Retu = UtLCnt 
End If 

Do Until UtLCnt = UtiJIax t 1 
BOX J: 
Rem PRVLG 

If wex308_8X3 18.8X288.8X298.8X026 (Gyou. Retu) = CNS_N0T_KML©X238 And _ 
Rem PRVLG 

fl3_JX3ie_8X28e_eX29e_eX028 (Gyou. Retu) =8X07© Then 
GoTo B0X.2 
End If 

GoTo B03LE 

B0X_2: 

Rem PUB IN _ _ . 

If ffeX305e_eX3l5e_eX2858_8X295e_eX200e (Gyou, Retu) = CNS_NOT.KUH.ex 2 356 Then Go To Box_3 

PR m30e„8X3ie.eX288_8X298_8X028_wk (Gyou. Retu) = W6X30 58.8X3 158.8X2 8 58.8X2 9 58.8X2 00 8 (Gyou, Retu) 
B0X_3: 

Rem PRMG nn _ u 

If V8X308.8X3ie - 8X288_eX298_8X028^wk (Gyou. Retu) O CNSJlOTjU!tL8X23e Then 

GoTo B0X.4 
End If 
GoTo B03L5 

BOXjl: 
Rem PRVLG 

ff8X308.8X3 18.8X2 88.8X2 98.8X0 28 (Gyou. Re t u) = »8X308_8X3 18.eX28e_eX298_8X028.wk (Gyou. Re t u) 
Rem PUB4B4L 
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Wak-ft** h^OS : 0 6 0-3 

iesc (Kcoan^jic) /mi3/mmti/'%tmm/'tfin&<DL4 (§g^o66o-3) 



mm$_mm_mm_mm_moM (Gyou. Retu> « WGX3Q6jx3i§_ex28e_ex29M*02e (Gyou, Retu) 

Rem PRYLG 

CTRLJ§X3O6_eX280_eX296_STSjrRANSITION_FLG = CTRLJ9X30MX28O«29MTSJRANSIT10N_FLG 1 1 
GoTo B03LE 

BOXJ: 
Rem PRYLG 

I f CTRLjm08_§X28MX29e_STS_TRANSITJ0NJ ; LGJ ) 
= CTRLJ'6X300X28MX298JTS_TRANSIT10N_FLG^PP Then 

GoTo B0X_6 
End If 

GoTo B0.O 

BOX J: 
Rem PRVLG 

CTRLJW30©_§*31M3;28& - e%29§_8X02©_NOT^VAL[D_FLG (Gyou, Retu) = True 
GoTo BOX_E 

B0X_7: 
Rem PRYLG 

CTRLjeX30e_8X298jNG..FLG = True 

GoTo BOX J 

BOX.E: 

UtLCnl = Uti.Cnt + 1 

Rem PRYLG 

If 6X346 < 6X353 then 
Gyou = UtLCnl 
Retu = Soto_Cnl 
End If 

Rem PRYLG 

If 6X346 > 6X353 then 
Gyou - Soto_Cnl 
Retu = UtLCnl 
End If 

Loop 

Soto_Cnt «= Soto.Cnl + 1 
Rem PRYLG 

1 f 6X346 < 6X356 then 
Gyou » UtLCnt 
Retu = Soto_Cnl 
End If 
Rem PRVLG 

If 6X346 > 6X3S6 then 
Gyou = Soto_Cnt 
Retu = UtLCnt 
End If 
Loop 
Gyou = 0 
Retu * 0 
UtLCnt = 0 
Soto.Cnl = 0 
UliJIax = 0 
SoloJIax = 0 
End Sub 

Rem *** PRCEND 
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MKDffl : 0 6 1 - 1 
K/A^/g^iai/^fiSM/ig^SOL 2 (gJS^O 6 7 0- 1) 



Option Explicit 
Ren 3DEFP11B 
Rem PUB4N2 

Private TOX308_§X31§j!X28©_©X29e_eX02© As 0X238 
Rem PUB1N2 

Private Wg%305§_§X3158JX2858_eX295&_©X2008 As §352356 
Ren PUB5C2 

Private CTRLJ'©X30©_e%28MX29@_STSjrRANSIT]ON_FLG As Integer 
Rem PUB5Y2 

Private nRL3e*3Q9_8X28©_©X29e_STS_TRANSIT10NJ 7 LG_P As Integer 
Rem PUB5B2 

Private CTRL_ff§»30§_eX289_«29e_STS_TRANSlTIONJ ? LCLPP As Integer 
Rem PUB6F2 

Private CTRLJ§X30§_©X31©_eX28e_©X29©_flX02§jmjttLlD_FLG As Boolean 
Rem 3DEFEND 
Rem 3DEFPRY 
Rem PRV2T2 

Private W§X30©_8X31©_©X288_8X298_§X02e_wk As 8X239 
Rem PRV7R2 

Private CTRLJt8X308_8X29©JNG_FLG As Boolean 
,Rem PUBKU 
Private CNS_N0TJttJH_8X23© As §35238 
Rem IPRV2W 
lei 1528 
Rem SPRV2E2 
Rem SPRV4W2 
8X1 558 
Rem IPRY4E2 
Rem 3 DEFEND 
Public Sub MainO 
|Rem JVECREP Private Sub L2_ex318j8X289_eX298_©XQ2© 0 

BOXJ: 
iRem PRVLG 

If W§X308_eX31§_eX288_eX29&_eX028 « CNS_N0TJCUH_8X238 Then 

GoTo B0X_2 
End If 

GoTo BOJLE 

BOX J: 

' 'NOP 
B0X.3: 
Rem PRVLG 

U W9X308_8X318^8X288 - 8X298_8X028_wk O CNSJM)T_KUH_©X23e Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

WeX30e_§X31§_§X288_§X29©_eX02§ = U6X30©_8X31MX28e_©X298_8X029 
Rem PRVLG 

CTRLJ§X3Q§_©X28e_©X29©_STSjrRANSlTI0)LFLG = CTRU8X30©_©X288_©X298_STS_TRANSITION_FLG t 1 
GoTo BOJLE 

B0X_5:. ._ -- ■ - - 

Rem PRVLG __ 
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tim-S^Z HPOffl : 0 6 1 - 2 

K/xii/tm&ymm%k/tk%~5k<o\- 2 cgmzmo 670-2) 

If CTRLJW308.§X28§_eX296„STS_TRANS|TlONJFLC_P 
= CTRLJ93G30&_e552«8_W29OTS - TRANSIT]0N„FLGJ > P Then 

GoTo B0X.6 
End If 

G0T0 B0XJ7 

B0X_6: 
Ren PRVLG 

CTa3©X30OX31§_©3528§_eX298_.8X02§„N0T_VALlD_FLG = True 
G0T0 B0X_E 

B0X.T: 
Rem PRVLG 

CTRLJ'§%30MX29e_lNG_FLG * True 

G0T0 BOX _E 
BOXJ: 
End Sub 

Rem *M PRCEND 
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Mm-±^ : 0 6 2 - 1 

K/X1)/&nK/^m$k/&K$k<nV 2 (jgjggflO 6 8 0- 1) 

(Option Explicil ™ 
Rem 3DEFPUB 
foem P0B4N2 

Private ffW308_eX31§_8X28§_§X296._8X02e (8X268. 8X278) As 8X238 
IRem PUBIN2 

Private ff8X305e_e%3l5e_6X285Q_8X295e_©X20Qe As §%235@ 
|Rem PUB5C2 

Private CTRL3eX30e_8X2883*29&_STS_TRANSin0N_FLG As Inleger 
iReo PUB5Y2 

Private CTRL_WeX308_iX28e_§S296_STS_TRANSiTION_FLGJ» As Integer 
iRera PUB5B2 

Private cmjr8X30e_eX28§_&X298_STSJTRANSinON_FLG_PP As Integer 
|Rcm PUB6F2 

Private CTRL_T§X30MX3l©«eX28§_e!B296_W02e^NOT_VALID_FLGl8X26§. §X276) As Boolean 

|Ren 8DEFEND 
Ren SDEFPRV 
|Rem PRV2T2 

Private W8X3Oe_ex3ie_eX288_8X298_eXO2e_wk(0X26e. 8X278) As 8X238 
iRem PRV7R2 

Private CTRLJ 8X308.8X2 98_ING_FLG As Boolean 
IRem PUBKU 
Private CNSJKJT_KUH_8X23e As 8*238 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private UUJIax as Integer 
Private SotoJIax as Integer 
IRem SPRV2V2 
lex 1529 
Rem SPRV2E2 
Rem 1PRV4W2 
pi 556 
Rem $PRV4E2 
Rem SDEFEND 
Public Sub Malnl) 

Rem ffVECREP Private Sub L2_8X3l8_8X288.JX298_eX02e0 
Gyou = 0 
Retu = 0 
*em PRVLG 

If q%340 < 8X358 then 
Rem PRVLG 

UtiJIax = 8X268 

Rem PRVLG 

SotoJIax « 8X278 
End If 
Rem PRVLG 

If 8X348 > 8X358 then 
Rem PRVLG 

UtiJIax = 8X278 

Rem PRVLG 

SotoJIax..? .8*268 . . - - 

End If . 
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tt&-_^£ h;K02J : 0 6 2 - 2 

k ^ Aft/jB^?T/3flB&/iSff L 2 (ff -Iff^ 0 6 8 0 - 2 ) 



IHLCnt = 0 
Solo_Cnt = 0 
Do Until Soto_Cnt = SotoJIax + I 
UlLCnt = 0 
!Rea PRVLG 

If 8X340 < 6X356 then 
Gyou = l)ti_Cnl 
Retu = Soto_Cnl 
End If 
iRcm PRVLG 

If 6X346 > 6X356 I hen 
Gyou = Soto_Cnt 
Retu = UlLCnl 
End II 

Do Until UlLCnt = UliJIax + 1 

BOXJ: 
|Reo PRVLG 

If ffeX30e_6X3ie_eX286_eX29e_eX02e(Gyou.Rctu) * CNS_N0T_KWLe*236 Then 

GoTo B0X_2 
End U 

GoTo BOO 

B0X_2: 

' ' NOP 

BOO: 
iReui PRVLG 

If ffeX30§_eX3ie_eX28e_6X298_6X02e_wk(Gyou. Retu) O CNS_N0T_KUiLe%236 Then 

GoTo B0X_4 
End If 

GoTo BOO 

B0X_4: 
|Rem PRVLG 

1 6X308_©%3 16 JX286 _8X29e_eX026 (Gyou. Retu) = *6X30e_eX3 16.6X2 88_«X2 98_6*026 (Gyou. Re lu) 
iRem PRVLG 

CTRL_ff6%3Q8.6X288_§X298_STS.TRANSlTI0NJLG = CTRL_W8X30e_eX28e_§X29e_STS_TRANSniON_FLG f 1 
GoTo BOO 

B0X_5: 
|Rem PRVLG 

I f CTMJ&eX308_eX28e_6X29e_STSjrRANSlTION_FLG_P 
= CTRL_m308_eX288_8X29e_STS_TRANSlTION_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

BOO: 
|Rem PRVLG 

CTRL.ffe%30e.eX318_6X286_eX298_6X02e_NOT.VALID.FLG (Gyou. Retu) = True 
GoTo B0X_E 

B03L7: 
|Ren PRVLG 

CTRL_ff6X3Q6_8X298_ING_FLG = True 
GoTo BOO 

BOO" 

PU-Cm - UiULnJ_+ .1. „. ... -. — - - - 

IRem PRVLG 
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bJKBS : 0 6 2-3 
K/Aa/ffiflW/^ffiB/%ff&<PL 2 (ga^O 6 8 0-3) 



If 6X34& < @%35@ I hen 
Gyou * UtLCnl 
Relu = Solo_Cnt 

End If 



Rem PRVLG 



If §X34§ > §3353 I hen 
Gyou = Soto.Cnl 
Relu = UlLCnl 
End If 

Loop 

Soto_Cnt = Soto_Cnl * 1 
|Rem PRVLG 

If 6X346 < 6X35§ then 
Gyou = UtLCnl 
Retu = Solo_Cnt 
End If 
Rem PRVLG 

If 6X346 > 6X358 then 
Gyou - Soto_Cnt 
Relu = UlLCnl 
End If 
Loop 

Gyou = 0 
Relu - 0 
UtLCnt = 0 
Soto.Cnt = 0 
UtiJIax = 0 
Sotojfax = 0 
(End Sub 

Rem *** PRCEND 



[12 4 8] 

tt&-£'<9 h)V<om : 0 6 3 

I23S2C0S4 (ga#^-0 6 9 0) 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private ff§X308_§X31§_.§*288_eX298_8X02§ As 6X236 
Rem 8DEFEND 
Rem SDEFPRV 
Rem PUBKD 

Private CNSJI0TjaJfLeX23§ As 8X238 
Rem (DEFEND 
Public Sub Ma id 0 

Rem SVECREP Private Sub S4_€X3ie_«X288_8S29e_6X02eeX048l3 0 

BOX_T: " 
Rem PUB1N 

B0X_2: 
Rem PUBKK 

BOO: 
B0X_4: 
B0!L5: 
BOXJ: 
B0X_7: 
BOX_E: 
End Sub 

Rem *PRCEND . 
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[11 2 4 9 ] 

h)Wm : 0 6 4 

I23£4(PS4 (iffigjft^O 7 0 0) 

Option Explicit 
Rem 3DEFPUB 
Ren PUB4N4 

Prlvale m308_8X31G_§X288_§X29§_§X02§ As 8X238 
Ren 8DEFEND 
Ren 3DEFPRV 
Rem PUBKU 

Private CNS.N0TJCU1LW23& As 6X238 
Rem 3 DEFEND 
Public Sub HainO 

Rem SVECREP Private Sub S4_eX31§_§X28e_8X298_.§X0288X048l40 

BOXJ: 

B0X_2: 
Rem PDBKK 

B0X.3: 

B0X.4: 

BOXJ: 

B0X_6: 

BOXJ: 

BOXJ: 
End Sub 
Rem tPRCEND 



[02 5 0] 

tt&~£^t7 h)V<OM : 0 6 5 

Q4%4<PS4 (flj6#07 10) 

Option Explicit 
Rem 5DEFPUB 
Rem PUB4N4 

Private ff8X308_8X3 lM*288_8X298_8X02e As 8X238 
Rem PUB4H4 

Private CTM*31§_8X288_8X298_04_END As Boolean 
Rem iDEFEND 
Rem tDEFPRV 
Rem PUBKU 

Private CNS_N0TJ0JO*238 As 8X238 
Rem 5DEFEND 
Public Sub MainO 

Rem iYECREP Private Sub SC8X31©_8X288_8X298_8X0288X04815 0 



BOXJ: 




BOXJ: 


Rep PUBKK 


BOXJ: 




BOXJ: 




BOXJ 




box;b 




BOXJ 




BOX_E 




End Sub 


Rem *PRCEND 
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[12 5 1] 

h)l(Om : 0 6 6 
L4%4 (gg^gjg^^gl^gj^g) OS4 (ff«^0 7 2 0) 
Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private m30e_8X3ie_eX28§_8X298_6X02§ As ©X23Q 
Rem PUB4N2 

Private CTR_§X318_§X28e_8X298_04_END As Boolean 
Rem 3DEFEND 
Rem 3DEFPRY 
Rem PRV7R4 

Private CTRL.J6X306_iX29§JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_N0TJCUO*238 As 8X238 
Rem 3 DEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub S4_8X31©_8X28§JX296_8X02§eX04816 0 
BOX_i: 

Rem PUB04STS 

If CTR_8X318_eX288_6X298J)4_END O True Then GoTo BOX.E 

B0X.2: 
Rem PUBKK 

BOXJ: 

B0X.4: 

BOX J: 

BOX J: 

B0X_7: 

BOX.E: 
End Sub 

Rem ♦PRCEND 



[112 5 2 ] 

^m-±^ hJV&m : 0 6 7 

l 4B4 {jm/mmsk/tsmm/mRm) <ps a og@#^o 7 3 0) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private W8X308_eX3ie_8X28§_eX298_8X02e As 8X238 
Rem PUB4N2 

Private CTR_©X31§_8X288_8X29§_04_END As Boolean 
Rem 3DEFEND 
Rem IDEFPRV 
Rem PRY7R4 

Private CTRL_ffeX308JX298JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUH_8*238 As 8X233 

. Rem.lBEFEMl _. . 

Public Sub Main 0 

Rem tVECREP Private Sub S4_6X 31 8_8X2 88_8X29 8.8X0288X04816 0 
BOX.!: 

Rem PUB04STS 

If CTIL§X3ie_eX288_8X298_04..END O True Then GoTo BOX.E 
B0X_2: 
Rem PUBKK 
B0X_3: 
B03L4: 
B0X.5: 
B03L6: 
B03L7: 

BOO: 
End Sub 

Rem * PRCEND 
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y*-z/ : 248/ 



[S2 5 3] 

ttsa-^^ h)\><nm : oss 

Option Explicil 
Rem 3DEFPUB 
Rem PUB4N4 

Private ff6X3O0JfX3 1 6.6X286 JX296JX026 (8X266. 6X276) As 6X238 
Rem PUB4N2 

Private CTR.6X3 18.62286.6X2 96.04JND As Boolean 
Rem SDEFEND 
Rem SDEFPRY 
Rem PRV7R4 

Private CTRUr6X30§_8X296JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUH_6X236 As 635236 
Rem J DEFEND 
Public Sub Main 0 

Rem SVECREP Private Sub S4_eX3l6_6X28e.6X298_§X02e&X04816 0 
BOXJ: 

Rem PUB04STS 

If CTR_©X3I6_6X286.6X296_04JND O True Then GoTo B0X_E 

BOXJ: 
Rem PUBKK 

BOXJ: 

B0X.4: 

BOXJ: 

BOXJ: 

BOX.?: 

BOXJ: 
End Sub 
Rem *PRCEND 



[S 2 5 4] 

ttm-£*l# h;KDSi : 0 6 9 

i4g4 aE&/®w&/im&/m&m) os4 (gg#^o7 5o) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private ff6X30e.6X 3 16JX2 86.6X298.6X026 (6X266. 6X276) As 6X236 
Rem PUB4N2 

Private CTR.6X 31 6.6X2 89.6X 296.04 JND As Boolean 
Rem DEFEND 
Rem 3DEFPRV 
Rem PRV7R4 

Private CTRLjreX30e_8X296JNG_FLG As Boolean 
Rem PUBKU 

Private CNS_N0T_KuTL6X236 As 8X230 

. Rem IpEFENj) _ „ _ ._ 

Public Sub HainO 

Rem SVECREP Private Sub S4.6X3 1 6.6X2 86_6X296.eX0288X04816 0 
BOXJ : 

Rem PUB04STS 

If CTR.6X3 16.6X286.6X296.04 JND O True Then GoTo BOXJ 

B0X.2: 
Rem PUBKK 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 
End Sub 

Rem *PRCEND 
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[13 2 5 5 ] 

: 0 7 0 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private ff8X30©JX318JX28§JX298J%02§ As 6*236 
Ren PUB4N2 

Private CTRJX318JX288JX298J4JND As Booiean 
Rem 3DEFEND 
Rem 5DEFPRY 
Rem PRY7R4 

Private CTRLJ8X308JX296JNGJLG As Boolean 
Rem PUBKU 

Private CNSJJ0TJUHJX238 As 8X238 
Ren 5 DEFEND 
Public Sub UainO 

Rem 8YECREP Private Sub S4JX31&JX289JX298JXQ288X04616 0 
BOXJ: 

Rem PUB04STS 

If CTRJX318JX288JX298J4JND O True Then GoTo BOXJ 

BOXJ: 
Rem PUBKK 

B0X_3: 

BOXJ: 

BOXJ: 

B0X_6: 

BOXJ: 

BOXJ: 
End Sub 
Rem *PRCEND 



[1212 5 6 ] 

tf&-±'<9 : 0 7 1 

L4%4 (iEm/iBm*k/mmG /mm*) cos 4 (gg^0 7 7 0) 

Option Explicl I 
Rem 3DEFPUB 
Rem PUB4N4 

Private ff8X308JX318JX288JX298JX029 As 8*239 
Rem PUB4M 

Private CTRJ*3iejX288JX298J4jND As Boolean 
Rem SDEFENI) 
Rem SDEFPRY 
Rem PRY7R4 

Private CTRLJ8X308JX298JNGJLG As Boolean 
Rem PUBKU 

Private CNSJOTJCUHJX238 As 8X238 
Rem 3DEFEND 
Public Sub MainO 

Rem SVECREP Private Sub S4JX3iejX28§JX298_eX0288X04§16 0 
BOXJ: 

Rem PUB04STS 

If CTRJX318JX288JX298J4JND O True Then GoTo BOXJ 
BOXJ: 
Rem PUBKK 
BOXJ: 
BOXJ: 
BOXJ: 
BOXJ: 

BOO: 

BOXJ: 
End Sub 
Rem *PRCEND 
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^-y: 250/ 



[@ 2 5 7 ] 

hfrom : 0 7 2 

L4t54 (iEm/mmm/®ffimy}fiftti) os4 (ftimno? so) 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private m308_8X318_6X28§_§X29O%02§{§*2 69. 6*279) As 6*238 
Rem PUB4N2 

Private CTiL8*31§_§X286_6X29&_04_END As Boolean 
Rem 3 DEFEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRL_W8X308_§*2S8_INGJ ? LG As Boolean 
Rem PUBKU 

Private CNS_N0TJCUH_6%238 As 8X236 
Rem 3DEFEKD 
Public Sub UainO 

Rem 9VECREP Private Sub S4_8X319_9X28e_eX298_eX028 8X0461 6 0 
B0X_1: 

Rem PUB04STS 

H CTR_8X316_§X286_6X298_04..END o True Then GoTo BOX J 

B0X_2: 
Rem PUBKK 

B0X_3: 

B0X_4: 

BOX J: 

B0X_6: 

B0X_7: 

BOX_E: 
End Sub 
Rem *PRCEND 



1 2 5 8 ] 



tt&-±1& b)MDM : 0 7 3 
L4g4 (TE&/&&m 0S4 (fSS^O 7 9 0) 



Option Explicit 
Rem SDEFPUB 
Rem P0B4N4 

Private ffeX306_§X31§_eX288_eX299_8X029 (6*269, 8X278) As ©35236 
Rem PUB4N2 

Private CTIL6X3 lG_9K28O5B29i_04j.NI) As Boolean 
Rem 5DEFEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRL_tt8X308_eX29dJNG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOTJCUH_835239 As 8X238 
Rem SDEFEND 
Public Sub Main 0 

Rem 3VECREP Private Sub $4_eX3ie_eX28e_8X29e_§X0288X04816O 
BOX_l: 

Rem PUB 04 ST S ~ " 

If CTR_8X3ie_6X28e_eX29©_04_END O True Then GoTo B03LE 
B0X_2: 

Rem PUBKK 

B0X.3: 

B0X_4: 

B0X_5: 

B0X_6: 

B0X_7: 

BOX_E: 
End Sub 
Rem tPRCEND 
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[H2 5 9 ] 

b)MOM : 0 7 4 
L4%4 (K/ffi^&/5ffi&/lflflga) <PS4 (gl^0 8 0 0) 
Option Explicit 
Rem 3DEFPUB 
Ren PUB4N4 

Private W6X308JiX3iejX28e_8X29MXO28 As 6X238 
Rem PUB4N2 

Private CTRJ*3l§_§!!;28ejX29d_04JND As Boolean 
Rem 3DEFEND 
Rem SDEFPRV 
Rem PRV7R4 

Private CTRLje*308_§X29§JNGJLG As Boolean 
Rem PUBKU 

Private CNSJ0TJOJHJX238 As 8X238 
Rem SDEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub S4_8X3l6JX288JX298_8X0268X04ei6 0 
BOXJ: 

Rem PUB04STS 

if CTRJX31OX28(L8%298_04JNl) O True Then CoTo B0X_E 

B0X_2: 
Rem PUBKK 

BOXJ: 

BOX J: 

BOXJ: 

B0X_6: 

BOXJ: 

BOXJ: 
End Sub 
Rem +PRCEND 



[H2 6 0] 

bfrom : 0 7 5 

L4%4 <K/&&m/mmm/}&nm) os4 ogJi&# o 8 1 o) 

Option Explicit 
Rem SDEFPUB 
Rem PUB4N4 

Private W©X308JX31§JX288JX298_eXQ2§ As €56238 
Rem PUB4N2 

Private CTRJX318JX288JX2904JND As Boolean 
Rem SDEFEND 
Rem WEFPRV 
Rem PRV7R4 

Private CTRLJ8X308_8X298JNGJLG As Boolean 
Rem PUBKU 

Private CNS_N0TJOJH_8*238 As §56238 
Rem SDEFEND 
Public Sub MainO 

Rem SVECREP Private Sub S4J*318JX288JX298JX02e8X04§16 0 
BOXJ : 

Rem PUB04STS 

If CTRJX318_8X288JX298J)4JND O True Then GoTo BOXJ 

BOXJ: 
Rem PUBKK 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 

BOXJ: 
End Sub 
Rem *PRCEND 
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[HI 2 6 1] 

ttB-^li? V)V<DM : 076 
L4354 (jO^gm/ggg/gj^) (PS 4 (gffl^0 8 2 0) 
Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private ff8X308_«X318_8X288_§«9e_eX029 (0X266. 8X278) As 8X238 
Rem PUB4N2 

Private CTILeX316_eX28§_6X298J)4_EM) As Boolean 
Rem SDEFEND 
Rem SDEFPRY 
Rem PRV7R4 

Private CTRL_ff8X30©_8X29©JNG_FLG As Boolean 
Rem PUBKU 

Private CNSJ*0T_KUH_8X23© As 8X23© 
Rem SDEFEND 
Public Sob Main 0 

Rem SVECREP Private Sub S4_8X318_8X289_©X29&_9X0299X04916 0 
B0JL1: 

Rem PUB04STS 

U CTJL8X3ie_eX288_eX298J)4_END O True Then GoTo BOXJ 

B0X_2: 
Rem PUBKK 

B0X_3: 

B0X.4: 

B0X_5: 

B0X_6: 

B0JL7: 

BOO: 
End Sub 
Rem *PRCEND 



IH2 6 2] 

{^-±^2 b)l<DM : 0 7 7 

L4%4 {K/m^^/^m^/m^m) (PS4 (fl^O 8 3 0) 
Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private W8X309_eX318_8X288_©X298_9X02§ (8X268. 8X279) As 9X239 
Rem PUB4N2 

Private CTR_8X3ie_8X289_8X298_04_END As Boolean 
Rem SDEFEND 
Rem SDEFPRV 
Rem PRY7R4 

Private CTRLjr8X308_9X298jNG_RG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUlLex238 As 8X238 
Rem SDEFEND 
Public Sub MainO 

Rem if V EC REP Private Sub S4_§*31O*28OS29§_©S029§X04@16 0 
BOXJ: 

Rem PUB04STS * 

If CTR_8X318_8X288_8X298_04_END O True Then GoTo BOX J. 

B0X_2: 
Rem PUBKK 

B0X_3: 

B0X.4: 

BOX J: 

B0X_6: 

B0X_7: 

BOXJi: 
End Sub 
Rem *PRCEND 
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[HI 2 6 3 ] 

)>)l><Dm : 0 7 8 

L25S4 (gggg^gH/gffgS) OS 4 (giS^0 8 8 0) 

Option Explicit 
Rem M* VECDEF 
Rem SDEFPUB 
Rem PUB4N4 

Private W6X30e_6X31&.JX28©_&Js29e_eX02§ As 61236 
Rem SDEFEND 
Rem tfDEFPRY 
Rem PUBPKY04 

Private CTRLJI§X30e_©X3 l§JiX28e_©*29§_6X02§J)UT..Condi t ions_KEY_NOT_VALIDJ ? LG As Boolean 
Rem PUBKU 

Privale CNS_N0T_KUH_6X236 As 6X23© 
Rem 3DEFEND 
Public Sub MainO 

Rem IVECREP Private Sub S4..8X3 16_8X2 88.6X29 6_§X0 266X0 46 17 0 
BOX.!: 

Rem PUBPKY04 

If CTRL_V8X30§ - ©X3l§_§X286_6X29§.0UT.ConditionsJCEYJJ0T.VALiDJ ? LG = True Then GoTo BOX.E 

B0X.2: 
Rem PUBKK 

B0X.3: 

B0X_4: 

B0X.5: 

B0X.6: 

B0X.7: 

BOX_E: 
End Sub 

Rem *PRCEND 



[12 6 4] 



h)l<DM : 0 7 9 





L2S4 iMmm/mm/&ftm ©S4 ma^o 8 9 0) 




Option Explicit 




Rem *** VECDEF 




Rem SDEFPUB 




Rem PUB4N4 




Private ff8X308_e%31&_e%286_«X29O*;02© As 6X236 




Rem 3 DEFEND 




Rem SDEFPUB 




Rem PUBPKY04 




Private CTRL_ff©X309_eX316.6X28§_6X29§_6X02©_0UT.ConditionsJiEYJ0TJ , ALIDJLG As Boolean 




Rem PUBKU 




Private CNS_N0TJOJH_6X23e As 6X238 




Rem 3 DEFEND 




Public Sub MainO 




Rem JVECREP Private Sub S4.8X316_6X288_6X29©.6X0266X04817 0 




BOXJ: 




Rem PUBPKY04 




If CTRL_W8X30§_6X3ie_eX286.8X298_0UT_Conditions.KEYJ(0T.VALID.FLG = True 




Then GoTo BOXJ 




B03L2: 




Rem PUBKK 




BOXJ: 




B05L4: 




B0X_5: 




B0X.6: 




B0X_7: 




BOO: 




End Sub 




Ren *PRCEND 
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[0 2 6 5] 

h)V<om : 0 8 0 
L3^4 (iE&/fig^&y^{3^/'%fl&) (OS 4 (gjgjft^ 0 9 0 0 ) 
Option Explicit 
Rem 5DEFPUB 
Rem PUB4N4 

Private U%m_m\%J$%'m_&%2MJb%m As ©S236 
Rem JDEFEND 
Rem JDEFPRV 
Rem PUBKU 

Private CNS_N0TJvUM*23§ As 8X236 
Ren 5DEFEND 
Public Sub MainO 

Rem 3VECREP Private Sub S4_ex3l§_§S28§_0X29M%O2e§SO4918O 

BOXJ: 

B0X_2: 
Rem PUBKK 

BOXJ: 

B0X.4: 

B0X_5: 

B0X.6: 

B03L7: 

BOX.E: 
End Sub 
Rem *PRCEND 
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